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ABSTRACT 


During  N-methyl-D-asparate  (NMDA)  neurotoxicity,  NMDA 
receptors,  in  response  to  glutamate,  open  their  channels  allowing  an  influx 
of  intracellular  calcium.  The  processes  leading  to  cell  death  after  an  influx 
of  calcium  are  unknown,  but  experimental  evidence  suggests  it  may  be  due 
to  nitric  oxide  (NO).  We  showed,  in  our  system,  that  the  nitric  oxide 
synthase  inhibitors,  NM-nitro-L-arginine  and  Nw-monomethyl-L-argmine, 
and  NO  binding  hemoglobin  do  not  prevent  NMDA  neurotoxicity.  These 
agents  also  blocked  the  formation  of  cyclic  guanosine  monophosphate. 
These  data  suggest  that  NO  does  not  mediate  the  neurotoxicity  of  NMDA. 
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The  effect  of  nitric  oxide  on  NMDA  neurotoxicity 
Katherine  E.  Renn 


Stroke  is  the  third  leading  cause  of  death  in  the  United  States, 
claiming  approximately  500,000  victims  each  year  (1).  Thirty  percent  of 
stroke  victims  die  and  20%  to  30%  become  permanently  and  severely 
disabled  (1).  Experimental  evidence  has  supported  the  hypothesis  that 
during  stroke,  excessive  amounts  of  glutamate  are  released  by  ischemic 
neurons.  Studies  have  suggested  that  in  response  to  glutamate,  N- 
methyl-D-asparate  (NMDA)  and  DL-a-amino-3-hydroxy-5-methylisoxa- 
zole-propionic  acid  hydrobromide  salt/kainate  (AMPA/kainate),  types  of 
glutamate  receptors,  open  their  channels  allowing  the  influx  of  calcium 
and  sodium  (1).  AMPA/kainate  receptors  only  allow  the  passage  of 
sodium.  An  abnormal  build-up  of  both  ions  may  occur.  The  increased 
build-up  of  calcium  may  trigger  the  release  of  glutamate,  thus  spreading 
the  calcium  cascade  to  other  cells  (1).  The  excess  calcium  may  activate 
proteases,  lipases,  and  endonucleases.  These  enzymes  may  degrade 
nucleic  acids,  proteins,  and  lipids.  The  metabolism  of  arachidonic  acid, 
a  by-product  of  the  degradation  of  phospholipids,  leads  to  the  foimation  of 
oxygen-free  radicals  (1).  An  overabundance  of  calcium  also  stimulates 
the  formation  of  nitric  oxide  (2). 

The  mechanism  for  the  formation  of  nitric  oxide  in  the  central 
nervous  system  (CNS)  is  still  not  fully  understood.  It  is  theorized  that 
glutamate  released  from  presynaptic  terminals  binds  to  NMDA 
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receptors.  Calcium  rushes  in  and  binds  with  calmodulin,  thereby 
activating  NO  synthase  (2,3).  Arginine,  already  present  in  the  CNS,  is 
converted,  by  NO  synthase,  to  equal  amounts  of  NO  and  citrulline  (3). 

In  a  recent  study  Dawson  et  al.,  reported  that  the  NO  antagonists 
N^-nitro-L-arginine  (N-arg)  and  Nw-monomethyl-L-arginine  (M-arg) 
attenuated  glutamate  neurotoxicity  in  cortical  cell  cultures  (4).  In  this 
study,  NMDA  neurotoxicity  was  associated  with  an  increase  in  NO, 
which  was  likely  mediated  by  the  entry  of  calcium  ions  (4).  Nitric 
oxide  was  also  shown  to  mediate  ischemic  neuronal  injury  in  rats  (5). 
This  study,  conducted  by  Nowicki  et  al.,  showed  that  N-arg,  a 
competitive  inhibitor  of  NO  synthase,  reduced  the  volume  of  infarction 
(5).  In  a  contrasting  study  by  Demerle-Pallardy  et  al.,  the  NO  pathway 
was  not  involved  in  the  neurotoxicity  in  the  brain  because  the  production 
of  cyclic  guanosine  monophosphate  (cGMP)  by  glutamate  was  totally 
blocked  by  the  NO  synthase  inhibitors  with  no  attenuation  of  neuronal 
injury  (6).  In  another  study  conducted  by  Manzoni  et  al.,  nitric  oxide 
wras  shown  to  protect  against  NMDA  induced  currents  and  the  associated 
increase  in  intracellular  calcium  (7).  Manzoni  tested  the  effects  of  NO- 
induced  ionic  fluxes  on  NMDA  by  using  drugs  that  produced  NO. 
These  drugs  all  blocked  NMDA-induced  currents. 

The  conflicting  evidence  suggests  that  more  research  needs  to  be 
done  to  determine  the  precise  role  of  NO  in  the  CNS.  The  discrepancy 
in  results  may  be  due  to  different  methods,  procedures,  or  distinct  origins 
of  neuronal  cells.  It  is  worthwhile  to  develop  a  detailed  understanding  of 
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the  precise  role  of  NO  in  NMDA  neurotoxicity.  This  information  could 
have  implications  to  limit  stroke-related  brain  damage.  We  performed 
this  study  in  neuronal  cell  cultures  to  assess  the  role  of  nitric  oxide  in 
NMDA  neurotoxicity. 

MATERIALS  AND  METHODS 


Cell  culture:  Cortical  cell  cultures  consisted  of  both  neuronal  and  glial 
cells.  Cells  were  obtained  according  to  the  method  of  Regan  et  al.  (8). 
Neuronal  cells  were  obtained  from  fetal  Swiss-Webster  mice  at  15-17 
days  gestation.  The  neocortex  was  removed,  minced,  and  placed  in 
media  containing  0.08%  acetylated  trypsin  at  37°  C  for  one  hour.  After 
centrifugation,  the  cells  were  placed  in  plating  media  consisting  of 
Eagle's  minimal  essential  media  (MEM),  10%  heat-inactivated  horse 
serum,  10%  fetal  bovine  serum,  glutamine  (2  mM),  and  glucose  (21 
mM).  The  cells  were  triturated  through  a  flamed  Pasteur  pipette,  diluted 
in  plating  media,  and  plated  on  pure  glial  cultures.  The  cells  were  plated 
in  15  mm  multiwell  plates  (2.5  x  10  ‘5  cells/well).  The  cultures  were 
maintained  at  37°  C  in  a  5  %  CO^  incubator,  and  the  media  was  changed 
twice  weekly  with  growth  media  lacking  fetal  serum. 

Glial  cultures  were  obtained  from  neonatal  Swiss-Webster  mice. 
The  dissection  and  dissociation  was  the  same  as  the  above  method.  The 
cells  were  plated  on  15  mm  Primaria  (Falcon)  multiwell  plates  at  a 
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density  of  0.5  hemispheres  per  plate.  Glial  cultures  were  used  primarily 
as  a  feeder  cell-layer  for  neurons. 

Animal  care  and  handling:  Pregnant  female  Swiss-Webster  mice  were 
anesthetized  with  halothane  and  euthanized  by  means  of  cervical 
dislocation.  The  fetuses  were  removed,  using  sterile  techniques,  and 
immediately  decapitated. 

Cytotoxicity:  Cells  15-19  days  in  vitro  (DIV)  were  exposed  to  excitatory 
amino  acids  (EAA's)  according  to  the  methods  of  Regan  et  al.(8).  Prior 
to  exposure,  the  cells  were  washed  with  a  HEPES  (N-[2- 
hydroxyethyl]piperazine-N'-[2-ethanesulfonic  acid]  )-buffered  controlled 
salt  solution  (HCSS)  to  remove  MEM.  HCSS  has  the  following 
composition:  NaCl,  120  mM;  KC1,  5.4  mM;  MgCl2,  0.8  mM;  CaCl2,  1.8 

mM;  HEPES,  20  mM;  glucose,  15  mM.  The  cells  were  exposed  to  NMDA 
in  HCSS  for  5  minutes.  The  experimental  solution  was  then  washed 
with  MEM.  Cells  were  placed  in  an  incubator  for  20-24  hours.  Long 
exposures  to  EAA's  were  performed  in  MEM  with  added  glucose  (25 
mM). 

LDH  assay:  Cell  injury  was  quantified  by  measurement  of  the  lactate 
dehydrogenase  (LDH)  released  by  damaged  cells.  Each  LDH  value  was 
scaled  to  the  mean  value  obtained  by  the  control  NMDA  exposure.  The 
LDH  test  was  performed  using  the  methods  described  by  Regan  et  al.  (8). 
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cGMP  assay;  After  the  application  of  NMDA  300  pm  (5  min),  the  cell 
culture  was  placed  in  ice  cold  65%  ethanol  for  5  min.  The  supernatant 
was  extracted  twice  and  iyophilized.  The  dried  extracts  were  dissolved 
in  the  assay  buffer,  and  the  cGMP  was  measured  with  a  cGMP  enzyme 
assay  kit  purchased  from  Amersham. 

NADPH-diaphorase  staining:  Control  cultures  and  cultures  exposed  to 
EAA's  were  stained  for  reduced  nicotinamide  adenine  dinucleotide 
phosphate  diaphorase  (NDP),  described  by  Koh  et  al.(9).  Cultures  were 
fixed  for  30  min  in  4%  paraformaldehyde  at  room  temperature,  and 
incubated  in  medium  containing  1  mM  NADPH  and  0.2  mM  nitro  blue 
tetrazolium  in  0.1  M  Tris  buffer  (pH  8.2)  at  37°C  for  30  min  to  1  hr.  The 
staining  action  was  ended  by  washing  with  water. 

Reagents:  All  chemicals  were  purchased  from  Sigma  (St.  Louis,  MO). 
The  cGMP  assay  kit  was  obtained  from  Amersham  (Amersham,  UK). 

RESULTS 

By  DIV  15,  neurons  in  culture  could  be  readily  identified  by  their 
phase-bright  cell  bodies  and  extensive  processes.  The  neurons  were 
stained  for  NDP  as  an  indirect  measurement  of  cells  containing  NOS  (9). 
Less  than  1%  of  the  neurons  in  these  cultures  were  stained  (Fig.  1). 
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Within  minutes  after  exposure  to  NMDA  300  pM  (5  min), 
neurons  were  acutely  swollen.  Over  the  next  few  hours,  swollen 
neurons  were  beginning  to  deteriorate.  At  24  hours  the  neurons  were 
phase-dark  and  fragmented.  The  neurons  were  also  releasing  substantial 
amounts  of  LDH  into  the  surrounding  medium.  Neuronal  cell  death 
was  recorded  24  hours  after  NMDA  (300  pm)  exposure  (Fig.  2).  About 
80%  of  the  neurons  were  injured;  the  glial  cell  layer  was  left  uninjured. 

The  simultaneous  applicadon  of  the  NOS  inhibitor  1  mM  N-arg  with 
NMDA  300  pM  (5  min)  did  not  provide  protection  against  neuronal 
death  (Fig  2).  The  application  of  1  mM  M-arg  also  did  not  provide 
protection.  Approximately  75  %  of  the  neurons  were  injured  with  each 
application.  To  further  ascertain  the  role  of  nitric  oxide  in  NMDA 
neurotoxicity,  we  applied  reduced  human  A0  hemoglobin  (Hb),  which 

binds  NO,  simultaneously  with  NMDA  (300  pM).  Hemoglobin  provided 
no  protection  against  NMDA-mediated  neuronal  injury  (Fig.  3). 
Simultaneous  application  of  the  noncompetitive  NMDA  antagonist  MK- 
801  completely  blocked  neuronal  injury. 

To  determine  if  NO  production  was  effectively  blocked  by  the 
concentration  of  NOS  inhibitors  used,  we  assayed  cGMP  levels.  The 
applicadon  of  NMDA  300  pM  (5  min)  stimulated  the  formation  of  cGMP 
(Fig.  4).  The  formation  of  cGMP  was  completely  blocked  by  the 
application  of  N-arg  (1  mM)  and  Hb  (500  pM).  In  fact,  these  cGMP  levels 
were  lower  than  baseline  levels.  Methyl-arginine,  another  NOS 
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inhibitor,  less  potent  than  N-arg  (4),  also  partially  blocked  the  formation 
of  cGMP  levels  (Fig.  4). 


DISCUSSION 

Although  Demerle-Pallardy  used  whole  rat  brain,  our  results  were 
in  agreement  with  their  findings  that  NO  was  not  shown  to  be  involved 
in  NMDA  neurotoxicity  (6).  In  contrast  to  Dawson  et  al.,  N-Arg  and  M- 
Arg  (inhibitors  of  NOS)  did  not  block  NMDA-induced  neuronal  death 
(Fig.  2).  Also,  Hb  (100  pm  or  500  pM)  did  not  protect  against  neuronal 
injury  (Fig.  3).  The  discrepancy  in  results  may  be  due  to  different 
methods,  procedures,  or  distinct  origins  of  neuron  cells. 

The  cells  exposed  to  NMDA  300  pM  (5  min)  resulted  in 
approximately  80%  neuronal  death.  A  study  by  Dawson  et  al.,  suggests 
that  N-arg  and  M-arg  (NOS  inhibitors)  would  block  NO  mediated 
neuronal  death  because  they  inhibit  NOS  (4).  This  inhibition  would  stop 
NOS  from  converting  arginine  into  NO.  Yet,  in  our  system,  N-arg  and 
M-arg  were  not  effective  in  blocking  neuronal  death.  Approximately 
70%  neurons  died  with  the  simultaneous  application  of  NMDA  300  pM 
(5  min)  and  the  NOS  inhibitors.  Dawson  et  al's.  evidence  also  suggested 
that  Hb  (which  binds  to  NO)  would  block  neuronal  death  (4).  Our 
cultures  were  not  protected  against  injury;  approximately  80%  neuronal 
death  was  recorded  with  this  application.  To  prove  that  the 
concentrations  of  N-arg,  M-arg,  and  Hb  which  we  used  were  effective  in 
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blocking  the  production  of  NO,  we  assayed  the  cGMP  levels.  The  results 
suggest  that  N-arg,  M-arg,  and  Hb  were  effective  in  blocking  the 
formation  of  cGMP.  These  results  suggest  that  NMDA-mediated 
neuronal  death  is  independent  of  NO. 

CONCLUSION 

We  showed  that  the  nitric  oxide  synthase  (NOS)  inhibitors,  nitro- 
arginine  (N-arg)  and  methyl-arginine  (M-arg)  do  not  prevent  NMDA 
neurotoxicity.  Also,  the  application  of  hemoglobin  (Hb)  did  not  prevent 
neuronal  injury.  These  data  establish  that  NO  does  not  mediate  the 
neurotoxicity  of  NMDA.  The  discrepancy  in  results  may  be  due  to 
different  methods,  procedures,  or  distinct  origins  of  neuron  cells. 
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Fig.  1,  NADPH-diaphorase  neuron  stain.  Three  NDP  neurons  with 
darkly  stained  cell  bodies  can  be  seen  against  a  background  of  other 
largely  unstained  neurons  and  glia. 

Fig.  2,  Protection  provided  by  N-arg  (1  mM)  and  M-arg  (ImM).  Amount 
of  LDH  present  in  bathing  media  was  measured  24  hours  after  the 
application  of  NMDA  300  pm  (5  min)  and  antagonists  (mean  ±  S.E.M., 
n=4  cultures  at  each  point).  LDH  release  was  scaled  to  the  mean  value 
evoked  by  exposure  to  300  pm  NMDA,  24  hrs  (=100). 

Fig.  3,  Protection  provided  by  Hb  (100  pm  and  500  pm).  Amount  of  LDH 
present  in  bathing  media  was  measured  24  hrs  after  the  application  of 
NMDA  and  antagonists  (mean  ±  S.E.M.,  n=4  cultures  at  each  point). 
LDH  release  was  scaled  to  the  mean  value  evoked  by  exposure  to  300  pm 
NMDA,  24  hrs  (=100). 

Fig.  4,  Formation  of  cGMP  after  the  application  of  NMDA  with  or  without 
N-arg  1  mM,  M-arg  1  mM,  or  Hb  500  pm.  Data  are  means  ±  S.E.M. 
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Abstract 


Many  nutrients  are  involved  in  the  complex  process  of  wound 
healing.  Of  the  vitamins,  pyridoxine  (vitamin  B6)  deficiency  has  resulted 
in  impaired  healing,  most  likely  due  to  its  effect  on  protein  metabolism. 
This  study  examined  the  effects  of  pyridoxine  deficiency  on  wound 
healing  and  its  effects  on  acute  phase  proteins,  immunoglobulins,  and 
antioxidant  enzymes  in  rats.  The  results  showed  that  despite 
pyridoxine  deficiency,  the  animals  in  each  dietary  group  responded  the 
same  toward  injury. 
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Pyridoxine  deficiency  and  wound  healing  in  rats: 

Assessment  of  antioxidant  enzymes  and 
immunological  status  --  Thornton  Mu 

Wound  healing  is  a  complex  process  that  takes  place  in  many 
stages  (1)  and  requires  the  presence  of  many  important  hormones, 
nutrients,  and  proteins,  such  as  acute-phase  proteins,  immunoglobulins, 
and  proteins  that  regulate  dangerous  oxidants  (2-5).  Free  radicals 
formed  by  these  oxidizers  can  cause  serious  cell  injury,  such  as  lipid 
peroxidation  (6). 

Among  the  nutrients,  pyridoxine  (vitamin  B6)  plays  quite  an 
important  role  in  the  synthesis  and  maturation  of  connective  tissue  (7). 
Consequently,  pyridoxine  deficiency  can  affect  normal  wound  healing  (8). 
Pyridoxine  also  possesses  an  antioxidant  function  that  prevents  damage 
done  by  free  radicals  (9),  functions  as  a  coenzyme  in  the  metabolism  of 
amino  acids  (10),  and  is  important  for  normal  immune  function  (11). 
Because  proteins,  such  as  immunoglobulins,  antioxidant  enzymes,  and 
acute-phase  proteins,  are  composed  of  amino  acids,  it  is  assumed  that 
a  deficiency  in  vitamin  B6  would  adversely  affect  production  of  these 
proteins. 

We  proposed  that  pyridoxine  deficiency  would  impair  the  ability 
to  respond  to  injury.  In  this  study  we  examined  the  effects  of  various 
stages  of  pyridoxine  deficiency  on  the  status  and  presence  (activity)  of 
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antioxidant  enzymes  and  on  the  concentrations  of  certain  acute-phase 
proteins  and  immunoglobulins  in  an  incisional  wound  model  in  the  rat. 
A  better  understanding  of  the  role  of  pyridoxine  could  lead  to  improved 
therapeutic  regimens  or  preventive  measures,  thus  reducing  mortality 
and  pain  for  the  injured  subject. 

Materials  and  Methods 

Experimental  protocol 

Young  adult,  female  Long-Evans  rats,  initially  weighing  175-200g 
were  employed  in  these  studies.  A  total  of  twenty-four  rats  were  used 
in  the  study.  The  rats  were  randomly  assigned  to  four  groups  of  six 
rats.  The  first  group  was  fed  a  diet  devoid  of  (deficient)  vitamin  B6. 
The  second  group  was  fed  a  diet  with  0.25  mg  vitamin  B6  per  kg.  The 
third  group  was  fed  a  diet  with  1  mg/kg  vitamin  B6.  The  fourth  group 
was  fed  a  control  diet  with  7  mg/kg  vitamin  B6.  All  four  groups  were  fed 
their  respective  diets  for  a  period  of  five  weeks.  Three  rats  within  each 
group  underwent  surgery  in  which  an  incision  was  made  through  the 
full  thickness  of  the  skin  on  the  dorsal  side.  The  rats  recovered  during 
one  week  after  the  surgery  and  were  fed  their  respective  diets  during 
the  recovery  period. 
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Biochemical  Studies 

At  the  end  of  six  weeks,  the  rats  were  overdosed  with 
pentobarbital  (120mg/kg).  Blood  was  withdrawn  by  cardiac  puncture 
into  titrated  tubes  and  plasma  was  recovered  by  centrifugation  for 
further  evaluation  of  vitamin  B6  levels,  immunoglobulin  G  and  M, 
albumin,  and  fibrinogen.  Liver,  kidney,  and  brain  were  quickly  removed, 
snap  frozen  in  liquid  nitrogen,  and  stored  at  -70°C  in  a  biological  freezer 
until  assayed. 

In  preparation  for  assays  to  determine  glutathione  peroxidase, 
glutathione  reductase,  superoxide  dismutase,  and  protein  content, 
samples  of  kidney,  liver,  and  brain  were  homogenized  separately  using 
the  Polytron  homogenizer  (Brinkmann  Instruments,  Westbury,  NY)  in 
a  homogenizing  buffer  composed  of  0.25M  sucrose  and  lOmM  Tris-HCl, 
pH  7.4  for  ten  seconds.  Using  a  Branson  sonifier  cell  disruptor  (Branson 
Ultra  Sonic,  Danbury,  CT),  the  samples  were  sonicated  three  times  for 
a  period  of  five  seconds  each.  The  samples  were  centrifuged  for  thirty 
minutes  at  10,000g  in  a  RC-5  Superspeed  Refrigerated  Centrifuge 
(DuPont  Instruments,  Newton,  CT). 

The  samples  were  tested  for  glutathione  peroxidase  by  using 
hydrogen  peroxide  as  a  substrate  (12)  and  tested  for  glutathione 
reductase  activity  (13)  by  measuring  the  disappearance  of  beta- 
nicotinamide  adenine  dinucleotide  phosphate  (beta-NADPH)  using  the 


27 


4  -Mu 


Beckman  DU-70  Spectrophotometer  (Beckman  instruments,  Fullerton, 
CA). 

Total  superoxide  dismutase  (SOD)  (12)  activity  was  measured  by 
the  ability  of  the  enzyme  to  inhibit  auto-oxidation  of  pyrogallol  using  the 
Beckman  DU-70  Spectrophotometer.  Manganese  SOD  activity  (12)  was 
measured  under  the  same  conditions  except  the  buffer  contained  ImM 
KCN.  CuZnSOD  was  calculated  by  subtracting  MnSOD  activity  from 
the  total  SOD  activity. 

Immunoglobulin  G  and  M  (IgG  and  IgM,  respectively) 
concentrations  in  plasma  were  determined  in  diffusion  plates  (Kallestad, 
Chaska,  MN)  by  double  immunodiffusion  (14).  The  results  were 
recorded  after  24  and  48  hrs  incubation  but  only  the  48  hr  values  were 
used  according  to  standard  protocol  in  clinical  laboratories.  Ten  pL  of 
antibody  was  placed  in  the  center  well  with  dilutions  of  plasma  placed 
in  the  outer  wells.  For  IgM,  neat  through  1/32  dilutions  were  used  and 
for  IgG,  1/32  to  1/1024  dilutions  were  used. 

Fibrinogen  and  albumin  concentrations  were  determined  by  rocket 
immunoelectrophoresis  (150  using  the  Bio-Rad  horizontal  electrophoresis 
cell  (Bio-Rad  laboratories,  Richmond,  CA).  Albumin  concentrations  were 
determined  from  standards,  while  fibrinogen  concentrations  were 
calculated  as  arbitrary  units  based  on  dilutions  of  normal  rat  plasma. 
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Protein  content  was  determined  with  a  commercially  available  kit 
(Bio-Rad,  Richmond,  CA)  using  the  Beckman  Du-70  spectrophotometer. 
Statistical  Analysis 

Data  were  analyzed  by  two  way  ANOVA  with  injury  and  diet  as 
factors.  Significant  differences  were  further  evaluated  by  the  Newman- 
Keuls  method  for  multiple  comparisons.  A  p<0.05  was  considered 
statistically  significant. 

Animal  Use  Statement 

Animal  quarantine  and  prior  care  were  performed  in 
accordance  with  SOP#  OP-ARG-4  and  OP-ARG-40  and  conforms  to  the 
provisions  of  the  NIH  as  stated  in  the  Guide  for  the  Care  and  Use  of 
Laboratory  Animals  (Nil I  publication  #85-23). 

Results 

Pyridoxine  status 

Tests  to  determine  pyridoxine  status  in  rats  showed  that  rats 
with  no  vitamin  B6  in  their  diets  were  indeed  deficient  in  vitamin  B6 
whereas  the  control  rats  with  7mg/kg  of  pyridoxine  had  normal  vitamin 
B6  concentrations  in  their  plasma.  The  other  two  groups  had 
intermediate  vitamin  B6  levels  in  their  plasma  (data  not  shown). 
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Acute-phase  proteins  (Table  1) 

Concentrations  of  fibrinogen  were  not  significantly  affected  by 
either  diet  or  injury  whereas  albumin  concentrations  were  significantly 
lower  in  rats  with  injury  (p-0.0023)  and  those  with  pyridoxine  deficient 
diets  (p=0.0002). 

Immunoglobulin  G  and  M 

Concentrations  of  IgG  and  IgM  were  not  significantly  different 
among  the  dietary  groups  and  injury  versus  noninjury  groups,  but  were 
relatively  constant. 

Antioxidant  enzyme  status  (Table  2) 

Activity  of  glutathione  peroxidase  per  gram  of  tissue  (GPx/g)  was 
significantly  higher  (p=0.0240)  in  the  livers  of  rats  deficient  in  vitamin 
B6  compared  to  controls.  However,  in  brain  and  kidney  samples,  GPx 
activity  was  not  significantly  affected  by  the  different  vitamin  B6  diets, 
in  all  dietary  groups,  GPx  activity  from  brain  samples  from  injured  rats 
showed  a  significant  decrease  (p=0.0229)  compared  to  their  uninjured 
counterparts  whereas  in  the  liver  and  kidney  samples,  a  nonsignificant 
trend  of  decrease  was  noted. 

In  the  rats  that  were  deficient  in  vitamin  B6,  activity  of 
glutathione  reductase  per  gram  of  tissue  (GR/g)  was  significantly  lower 
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(p=0.0278)  in  liver  samples,  but  significantly  higher  (p=0.0034)  in  brain 
samples  compared  to  controls.  Activity  of  GR/g  in  kidney  was  not 
significantly  affected  by  diet  or  injury. 

Differences  in  manganese  superoxide  dismutase  activity  per  gram 
of  tissue  (MnSOD/g)  were  not  significant  among  the  diet  and  injury 
status  of  the  three  tissue  groups. 

However,  activity  of  copper  zinc  superoxide  dismutase  per  gram 
of  tissue  (CuZnSOD/g)  was  significantly  lower  (p=0.0391)  in  kidney 
samples  from  rats  fed  deficient  pyridoxine  diets  but  was  significantly 
higher  (p=0.0390)  in  brain  samples  with  the  same  deficient  diets 
compared  to  controls.  Liver  sample  activity  remained  non- significant. 
In  terms  of  injury  status,  CuZnSOD/g  activity  was  non-significant 
among  the  three  tissues. 

Discussion 

It  has  already  been  shown  that  vitamin  B6  affects  protein 
metabolism  (10),  and  in  our  studies,  protein  levels  of  rats  with  diets 
deficient  in  vitamin  B6  were  significantly  reduced  (data  not  shown). 
However,  similar  to  studies  by  Schaeffer  et  al.  (16),  body  weight  of  all 
rats  remained  relatively  constant  despite  the  varying  amount  of 
pyridoxine  in  their  diets  (data  not  shown).  Therefore,  to  insure  more 
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stable  readings,  activity  of  the  antioxidant  enzymes  measured  were 
expressed  per  grams  of  tissue  rather  than  grams  of  protein. 

Our  results  have  shown  that  there  were  few  significant  decreases 
in  enzyme  activity  due  to  changes  in  pyridoxine  diet  or  injury  status. 
One  could  possibly  assume  that  with  a  shortfall  of  protein,  amounts  of 
other  proteins  and  enzymes  could  also  decrease.  Yet  this  assumption 
did  not  hold  for  the  enzymes  and  proteins  measured  in  our  studies 
because  fibrinogen,  IgG,  IgM,  GPx,  GR,  MnSOD,  and  CuZnSOD 
concentrations  did  not  decrease  significantly.  Instead,  in  tissues  in 
which  antioxidant  enzymes  activity  was  significantly  affected  by  diet, 
the  values  were  usually  higher  in  the  deficient  group  than  in  the 
controls. 

One  possible  explanation  for  these  findings  is  that  the  one  week 
allowed  for  recovery  from  surgery  may  have  been  enough  time  to 
synthesize  the  enzymes  and  proteins  listed  above.  In  addition,  a 
previous  study  done  by  Black  et  al.  showed  that  rats  with  pyridoxine- 
deficient  diets  maintained  a  vitamin  B6  reserve  in  their  gastrocnemius 
muscle  (17).  Therefore,  although  the  plasma  revealed  a  pyridoxine 
deficiency,  the  rats  may  have  been  relying  on  this  storage  to  provide 
tissues  with  enough  pyridoxine  to  synthesize  the  needed  enzymes  and 
proteins  to  respond  to  the  stress  of  the  injury  induced. 

Albumin  levels,  on  the  other  hand,  showed  a  significant  decrease 
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both  in  the  vitamin  Bg  group  and  the  injured  group.  Albumin  in  plasma 
was  affected  by  pyridoxine  deficiency,  but  the  reaction  of  albumin  as  an 
acute-phase  protein  following  injury  was  not  impaired. 

In  conclusion,  pyridoxine  deficiency  did  not  significantly  affect  the 
rat’s  response  to  surgically-induced  wound.  The  antioxidant  status  of 
the  tissues  examined  in  the  rats  remained  at  control  level,  or  higher, 
and  the  plasma  concentrations  of  immunoglobulins  measured  were 
unaffected  by  the  pyridoxine  deficiency.  Also,  the  acute-phase  protein 
response  to  injury  was  not  adversely  affected  by  the  pyridoxine 
deficiency.  More  research  is  needed  to  gain  a  better  understanding  of 
the  effects  of  vitamin  B6  in  the  realm  of  wound  healing. 


33 


10  -  Mu 


Acknowledgements 

I  would  like  to  thank  Dr.  Michael  Dubick  and  Dr.  X.Q.  Yuan  for 
their  sharing  their  vast  knowledge,  learning,  and  experience  with  me; 
Dr.  Virginia  Gildengorin  for  assisting  with  the  statistical  analyses;  Ms. 
Susan  Siefert  for  helping  me  prepare  this  paper;  and  the  Military 
Trauma  Research  Division  and  COL  Brown,  MAJ  McCollum  and  Mr. 
William  Ward  of  the  Command  Division  at  the  Letterman  Army 
Institute  of  Research  for  giving  me  this  tremendous  opportunity. 


34 


Mu  -  11 


REFERENCES 

1.  Hotter,  AN.  Physiologic  aspects  and  clinical  implications  of  wound 
healing.  Heart  &  Lung  1982;11:522-530. 

2.  Kushner,  I.  The  Acute  Phase  Response:  An  Overview.  Methods  in 
Enzymology  1988;163:373-383. 

3.  Ritzman  SE,  Daniels  JC.  Laboratory  Notes:  Serum  Proteins, 
Somerville,  NJ:  Behring  Diagnostics,  Nov.  1-28,  1973. 

4.  Murphy  FA,  Osebold  JW,  Aalund  0.  Kinetics  of  the  antibody  response 
to  Anaplasma  marginale  infection.  J  Infect  Dis  1966;  16:99. 

5.  Harris  ED.  Regulation  of  antioxidant  enzymes.  The  FASEB  J 
1992;6:2675-2683. 

6.  Slater  TF.  Free-radical  mechanisms  in  tissue  injury.  Biochem  J 
1984;222:1-15. 

7.  Tinker  D,  Rucker  RB.  Role  of  selected  nutrients  in  synthesis, 
accumulation,  and  chemical  modification  of  connective  tissue  protein. 
Physiol  Rev  1985;65:607-657. 

8.  Lakshmi  AV,  Diwan  PV,  Bamji  MS.  Wound  healing  in  pyridoxine 
deficiency.  Nutri  Res  1988;8:1203-1206. 

9.  Wills  ED.  The  role  of  dietary  components  in  oxidative  stress  in 
tissues.  In:  Oxidative  Stress,  H  Sies,  ed.,  Academic  Press,  New  York, 
1985,  pp.  197-218. 

10.  Dubick  MA.  Interactions  of  vitamin  B6  and  xenobiotics.  In: 
Nutritional  Toxicology,  Hathcock  JN,  ed.,  Academic  Press,  Orlando, 
1989;3:97-121. 

11.  Chandra  RK,  Sudhakaran  L.  Regulation  of  immune  responses  by 
vitamin  B6.  In:  Vitamin  B6,  Dakshinamurti  K,  ed.,  Academic  Press,  New 
York,  1990,  pp.  404-423. 

12.  Zidenberg-Cherr  S,  Han  B,  Dubick  MA,  Keen  CL.  Influence  of 
dietary-induced  copper  and  manganese  deficiency  on  ozone-induced 


35 


12  -  Mu 


changes  in  lung  and  liver  antioxidant  systems.  Toxicol  Lett  1991;57:81- 
90. 

13.  Cohen  MB,  Duvel  DL.  Characterization  of  the  inhibition  of 
glutathione  reductase  and  the  recovery  of  enzyme  activity  in 
exponentially  growing  murine  leukemia  (L1210)  cells  treated  with  1,3- 
bis(2-chloroethyl)-  1-nitrosourea.  Biochem  Pharm  1988;37:3317-3320. 

14.  Clausen  J.  Immunochemical  techniques  for  the  identification  and 
estimation  of  macro-molecules.  New  York:  American  Elsevier  Publishing 
Company,  Inc.,  1969. 

15.  Laurell,  CB.  Electroimmunoassay.  Scand  J  Clin  Lab  Invest 
I972;29(suppl.  124):21-37. 

16.  Schaeffer  MC,  Sampson  DA,  Skala  JH,  Gietzen  DW,  Grier  RE. 
Evaluation  of  vitamin  B6  status  and  function  of  rats  fed  excess 
pyridoxine.  J  Nutri  1989;119:1392-1398. 

17.  Black  AL,  Guirard  BM,  Snell  EE.  The  behavior  of  muscle 
phosphorylase  as  a  reservoir  for  vitamin  B6  in  the  rat.  J  Nutri 
1978;108:670-677. 


36 


David  M.  Dahle 
Tamalpais  High  School 
August  5,  1992 

Letterman  Army  Institute  of  Research 
Mentor  -  Kim  Vandegriff,  Ph.D. 
Data  Acquisition  for  Experiments  in 
Hemoglobin  Oxygen  Binding 


37 


ABSTRACT 


This  report  presents  an  Assembly  Language  program 
that  was  designed  to  collect  experimental  data  in  the 
form  of  analog  voltage  signals  and  convert  them  into 
digital  values  for  computer  storage  and  analysis.  These 
voltage  signals  represent  the  concentration  of  oxygen 
in  a  reaction  cell  for  an  experiment  which  tests  the 
function  of  hemoglobin  by  measuring  the  color  change  of 
the  hemoglobin  solution  as  it  transforms  from 
deoxyhemoglobin  to  oxyhemoglobin  upon  the  addition  of 
oxygen.  The  program  interfaces  the  experiment  with  an 
analog-to-digital  converter  that  improves  the  accuracy 
of  the  oxygen  concentration  measurements.  The  program 
also  incorporates  specific  timing  sequences  to  allow 
synchronous  data  acquisition.  The  Assembly  Language 
program  employs  user-friendly  interfacing  and  several 
automated  features  that  result  in  saving  of  time  and 
effort  on  the  part  of  the  researcher. 
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DATA  ACQUISITION  FOR  EXPERIMENTS  IN  HEMOGLOBIN  OXYGEN 


BINDING 

David  M.  Dahle 

This  project  in  computer  science  was  designed  to 
translate  experimental  data  signals  into  digital  files 
for  data  analysis.  The  data  translation  procedure  will 
be  used  in  experiments  to  aid  in  the  development  of  a 
hemoglobin-based  blood  substitute. 

The  biochemical  experiment  involves  testing  the 
structure  and  function  of  hemoglobin  by  measuring  its 
transition  from  deoxyhemoglobin  to  oxyhemoglobin  as 
oxygen  is  added  and  the  protein  changes  color  from 
purple  to  red.  The  change  in  color  of  hemoglobin  is 
measured  optically  by  rapid-scanning  spectrophotometry, 
which  records  the  amount  of  light  absorbed  by 
hemoglobin  at  each  wavelength  in  the  visible  spectrum 
from  400  to  800  nanometers.  The  absorbance  values  for 
each  wavelength  are  measured  as  rapidly  scanning 
monochromatic  light  is  transmitted  through  a  reaction 
chamber  containing  the  hemoglobin  solution.  Oxygen 
concentrations  are  recorded  simultaneously  as  a  voltage 
level,  which  is  produced  by  an  electrode  fitted  in  the 
reaction  cell.  This  new  methodology  measures  the 
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change  in  the  hemoglobin  spectrum  at  5  scans  per - - 

second. 

This  project  involves  the  aspect  of  the  experiment 
that  records  the  oxygen  concentrations  in  the  reaction 
cell  containing  the  hemoglobin,  which  is  done 
simultaneously  with  the  recording  of  the  absorbance 
values.  The  program  that  records  the  oxygen 
concentrations  receives  this  information  as  an  analog 
voltage  signal.  It  converts  the  voltage  to  digital 
values  using  an  analog-to-digital  converter.  It 
synchronizes  its  operations  with  the  recording  of  the 
absorbance  values  using  a  digital  signal  sent  by  the 
spectrophotometric  system.  The  oxygen  concentration 
values  are  then  combined  with  the  absorbance  values  and 
analyzed.  Figure  1  shows  these  data  graphed  in  3- 
dimensions.  The  graph  begins  with  deoxyhemoglobin  and 
ends  with  oxyhemoglobin. 

This  project  was  undertaken  to  upgrade  an  outdated 
data  acquisition  system  in  an  effort  to  improve  the 
accuracy  of  the  oxygen  concentration  readings.  Other 
goals  of  the  project  were  to  incorporate  a  user- 
friendly  interface  and  a  flexible  design  so  that  the 
program  would  be  easier  to  operate,  making  data 
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acquisition  as  simple  as  possible.  The  new  data 
acquisition  system  arrived  in  the  laboratory  just 
before  I  did,  so  I  began  the  project  by  first 
installing  the  computer  board,  fabricating  new  cables, 
and  then  developing  the  program. 

EQUIPMENT  USED 
COMPUTERS 

MS-DOS  80286. 

CompuAdd  Tower  MS-DOS  80486. 

GoldStar  MS-DOS  80386. 

Digital  Equipment  Corporation  network  system  and 
software. 

PROGRAM  DEVELOPMENT 

WordPerfect  Version  5.1. 

WordPerfect  for  Windows  Version  5.1. 

Microsoft  Windows  Version  3.1. 

Microsoft  DOS  Version  5.0. 

WordStar  Professional  Version  5.0. 

COMPILERS /AS  SEMBLERS 

Borland  International  Turbo  Assembler  Version  1.0 
and  utilities. 

Microsoft  C  Optimizing  Compiler  Version  5.0, 
Version  5.1  and  utilities. 
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EXPERIMENTAL  APPARATUS 

LT  Quantum  1200  Spectrophotometric  System  (LT 
Industries  Rockville ,  Maryland)  is  used  to  make  the 
spectral  measurements  of  the  hemoglobin. 

YSI  Model  5300  Biological  Oxygen  Monitor  System 
(Yellow  Springs  Instrument  Co.,  Inc.  Yellow  Springs, 
Ohio)  is  used  to  create  the  oxygen  voltage 
concentration  signal. 

Analog  Connection  MINI-16  Data  Acquisition  and 
Control  System  Analog  to  Digital  Converter  (Strawberry 
Tree  Computers,  Inc.  Sunnyvale,  California)  is  used  to 
convert  the  analog  signal  to  a  digital  value  so  it  can 
be  stored  and  used  in  a  computer. 

EXPERIMENTAL  METHOD 

The  experiment  has  two  components  which  run 
synchronously .  (See  Figure  2) .  The  first  component  is 
the  spectrophotometric  system  which  makes  the 
absorbance  value  readings .  The  software  for  this 
system  controls  the  rapid-scanning  spectrophotometer 
and  collects  data  from  it.  The  data  are  recorded  as 
absorbance  values  for  each  wavelength  in  the  visible 
light  spectrum  from  400  nanometers  to  800  nanometers. 
Absorbance  values  at  each  wavelength  are  measured  as 
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rapidly-acanning  monochromatic  light  is  transmitted 
through  the  hemoglobin  solution.  The  system  also 
signals  the  oxygen  concentration  recorder  via  a  TTL 
(Transistor  to  Transistor  Logic)  pulse,  so  the  oxygen 
concentration  recordings  can  be  synchronized  with  the 
spectral  scans.  This  is  a  digital  signal  that 
represents  two  states,  on  or  off,  or,  in  this  case, 
"record"  or  "don't  record"  oxygen  concentrations. 

The  second  component  of  the  experiment  measures 
the  amount  of  oxygen  in  the  reaction  chamber 
simultaneously  with  the  spectral  readings.  The  system 
begins  with  a  Clark-type,  fast  response  polarographic 
electrode  that  is  fitted  in  the  reaction  cell 
containing  the  hemoglobin  solution.  It  generates  an 
analog  voltage  signal  based  on  the  concentration  of 
oxygen  in  the  reaction  cell.  The  signal  goes  to  an. 
oxygen  monitor  which  amplifies  and  calibrates  it,  then 
to  a  filter  to  reduce  line  noise.  A  voltmeter  gives  a 
display  of  the  approximate  voltage  signal.  The  signal 
then  travels  to  the  analog-to-digital  converter  in  the 
computer.  This  converter  has  8  analog  input/outputs 
and  16  digital  input/outputs .  An  analog  port  is  used 
to  read  the  oxygen  voltage  concentration  signals  and 
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convert  them  to  digital  values  which  only  then  can  be 
stored  in  the  computer.  A  digital  port  is  used  to  read 
the  TTL  signal  so  that  the  oxygen  concentration 
recorder  will  run  synchronously  with  the 
spectrophotometn c  system. 

PROGRAM  DESCRIPTION 

The  program  relies  on  a  device  driver  to  run  the 
hardware,  so  that  the  driver  must  be  installed  before 
the  program  can  be  run.  When  the  program  starts  it 
verifies  that  the  driver  has  been  installed.  If  it  has 
not,  the  program  displays  an  error  message,  waits  for 
the  user  to  hit  any  key,  then  exits.  If  the  device 
driver  has  been  installed,  the  program  accesses  the 
functions  by  placing  parameters  on  the  stack  and 
calling  interrupt  vector  60. 

After  the  test  for  the  presence  of  the  software, 
the  program  loads  a  default  configuration  file  which 
contains  the  settings  for  all  the  configuration  fields 
and  the  date  they  were  saved.  This  date  is  used  by  the 
Automatic  File  Names  feature.  This  feature  enables  the 
program  to  automatically  create  names  for  the  files 
based  on  the  date  and  the  current  experiment  number. 

It  creates  file  names  by  generating  an  8-character 
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numerical  string,  the  first  two  characters  being  the 
month  of  the  year,  the  next  two  the  day  of  the  month, 
the  next  two  the  last  two  digits  in  the  year,  and  the 
last  two  the  experiment  number  (i.e.,  12259250  for 
December  25,  1992,  experiment  number  50).  After  each 
experiment  is  run  without  errors,  the  program 
automatically  increments  the  experiment  number.  When  a 
configuration  file  is  written,  the  date  to  which  the 
experiment  number  corresponds  is  also  saved.  When  the 
file  is  loaded  agair,  the  program  compares  the  date  in 
the  file  with  the  current  date.  If  they  are  the  same, 
it  restores  the  experiment  number  from  that  file,  if 
they  are  different,  it  resets  it  to  1.  This  allows  the 
experiment  number  to  act  as  an  automatic  counter  for 
the  number  of  experiments  run  in  a  day,  even  if  the 
program  is  run  several  separate  times  in  the  same  day. 

After  the  configuration  file  is  loaded,  the  user 
is  given  a  list  of  several  functions  which  can  be 
performed.  The  user  makes  selections  from  these  by 
using  the  left  and  right  arrow  keys.  Each  item  will 
become  highlighted  as  it  is  selected.  The  user  can 
execute  the  currently  highlighted  item  by  hitting  the 
return  key.  If  the  user  presses  the  up  or  down  keys 
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he/she  can  scroll  through  the  con figuration- parameters . 
Highlighted  configuration  items  can  be  toggled  with  the 
return  key.  String  entry  fields  are  used  to  read  file 
names  from  the  user  and  function  in  the  same  way  as  any 
other  string  input  field. 

The  Average  File  Name  field  specifies  the  file  in 
which  the  averages  of  all  the  readings  for  each  data 
set  will  be  written.  The  Data  File  Names  field 
specifies  the  name  for  the  data  files  in  which  every 
reading  from  each  set  will  be  written.  An  extension 
number  corresponding  to  the  current  set  is  used  so  the 
data  for  each  set  can  be  distinguished,  and  any 
extension  given  will  be  replaced.  If  no  file  name  is 
given  for  either  of  the  two  file  name  fields,  then  no 
file  will  be  created.  The  Experiment  Number  field 
specifies  the  number  of  the  current  experiment,  which 
is  used  by  the  Automatic  File  Names  feature.  This 
number  is  ignored  by  the  program  if  this  feature  is 
turned  off.  The  Automatic  File  Names  field  allows  the 
user  to  turn  on  or  off  the  automatic  file  naming 
feature.  The  Print  Elapsed  Time  field  allows  the  user 
to  specify  if  he/she  wants  the  program  to  compute  the 
length  of  time  that  the  TTL  pulse  was  active  and  the 
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data  rate  in  Hertz  (Hz) .  The  Analog  Input  Range  field 
is  used  by  the  device  driver  to  indicate  the  projected 
voltage  range  of  the  input  signal.  The  Analog  Input 
Resolution  field  is  also  used  by  the  device  driver  to 
determine  the  precision  of  the  readings.  This  field  is 
also  used  to  set  the  speed  at  which  data  are  sampled. 
The  less  precision  specified,  the  faster  the  data  are 
converted. 

The  first  item  from  the  list  of  functions  is  the 
Begin  item  which  is  used  to  start  data  acquisition. 

Once  started,  the  function  list  will  be  overwritten  by 
a  message  informing  the  user  that  he/she  can  end  data 
acquisition  by  pressing  any  key.  If  any  file  or  memory 
errors  occur,  then  an  error  message  is  displayed  and 
acquisition  is  aborted.  If  the  Automatic  File  Names 
feature  has  been  activated,  then  the  file  names  are 
given  just  before  acquisition  begins. 

Acquisition  begins  by  waiting  for  a  drop  in  the 
TTL  line  from  the  spectrophotometric  software.  This 
line  is  connected  to  one  of  the  digital  input  ports  on 
the  analog-to-digital  converter.  It  remains  in  an 
active  state  (low-voltage  mode)  until  the  specified 
number  of  scans  has  been  completed.  When  spectral  data 
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collection  is  finished/  the  signal  returns  to  its 
inactive  state  (high-voltage  mode).  The  program  senses 
the  change  in  the  TTL  signal  and  stops  recording 
voltage  readings .  An  average  of  all  of  the  readings  in 
each  set  is  computed  and  written  to  an  output  file,  if 
a  file  name  was  given  in  the  Average  File  field.  If 
the  user  specified  a  file  name  in  the  Data  File  Names 
field,  then  each  reading  in  the  set  will  be  written  to 
disk  using  the  name  given  plus  an  extension 
corresponding  to  the  current  set  number.  This  process 
is  repeated  until  the  user  cancels  the  operation  by 
hitting  any  key,  allowing  sets  of  readings  to  be  taken. 

The  next  item  in  the  function  list  is  Instant 
which  continuously  reads  both  the  analog  voltage  and 
the  TTL  line  state  so  that  the  user  can  verify  the 
connections  before  an  experiment  begins.  This  can.be 
done  by  comparing  the  voltage  readings  with  those  on 
the  voltmeter. 

The  Load  function  enables  the  user  to  read  a 
configuration  file  with  a  name  other  than  the  default 
name.  A  string  input  field  appears  just  below  the 
function  list  in  which  the  user  can  enter  the  new  file 
name.  He/she  can  abort  by  hitting  the  escape  key. 
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When  done,  the  user  presses  the  return  key  to  write  the 
file. 

The  Save  function  allows  the  user  to  write  a 
configuration  file  with  a  name  other  than  the  default 
one.  A  string  input  field  appears  and  functions  the 
same  as  the  Load  function. 

The  last  item  in  the  function  list  is  the  Exit 
option.  When  this  function  is  selected,  the  program 
writes  the  current  configuration  settings  to  the 
default  configuration  file,  then  returns  to  the  parent 
process,  normally  the  MS-DOS  command  prompt. 

EXPERIMENTAL  DATA 

Figure  3  shows  the  fractional  saturation  of 
hemoglobin  calculated  as  a  function  cf  the  partial 
pressure  of  oxygen.  The  fractional  saturation  of 
hemoglobin  (Hb)  is  computed  using  the  following 
formula : 

Fractional  Saturation  *  %oxyHb  /  (%oxyHb  +  %deoxyHb) . 

DISCUSSION 

The  program  went  through  two  versions.  The  first 
was  written  in  the  C  Programming  Language  (see  Appendix 
A  for  source  listing) .  The  second  version  was  written 
almost  entirely  in  80286  Assembly  Language,  only 
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functions  which  involve  the  processing  of  floating¬ 
point  variables  were  written  in  C  (see  Appendix  B  for 
source  listing) .  The  rewriting  of  the  program  solved 
several  problems  and  allowed  me  to  discover  better 
solutions  for  old  ones. 

A  few  improvements  were  also  made  from  the  old 
system  which  was  in  place  previously,  beyond  the 
increased  accuracy  provided  by  the  new  data  acquisition 
system.  These  include  the  use  of  8-byte  doubles 
instead  of  4-byte  floats  in  computing  the  averages. 

This  increased  the  number  of  decimal  places  used  in  the 
calculation  and,  therefore,  the  precision  of  the 
computation. 

A  major  difference  was  discovered  between  the  new 
data  acquisition  and  the  old  one.  In  the  old  system, 
the  converter  would  start  recording  as  usual  with  the 
TTL  pulse.  Samples  were  then  taken  at  a  specified  rate 
until  the  TTL  pulse  went  inactive.  The  number  of 
readings  might  vary  if  the  timing  of  the 
apectrophotometric  system  was  not  always  accurate,  but 
the  samples  were  always  taken  at  the  same  rate  and 
within  the  correct  time  period.  A  specific  sampling 
frequency  in  Hz  could  be  approximated  by  setting  the 
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rate  at  which  readings  jwere  taken  and  by  computing  the 
time  that  spectrophotometric  system  would  take,  which 
is  known.  This  was  required  so  that  a  sampling 
frequency  could  be  set  to  minimize  line  noise. 

On  the  new  system  there  is  no  direct  way  to  set 
the  sampling  frequency.  It  can  only  be  set  indirectly 
through  the  resolution  of  the  analog-to-digital 
conversion.  It  also  has  no  feature  to  automatically 
start  or  stop  recording  with  a  TTL  signal.  This 
problem  at  first  led  us  in  the  direction  of  attempting 
to  compute  the  rate  at  which  samples  would  be  taken ' 
based  on  the  resolution  and  the  clock  speed  of  the 
computer.  We  thought  we  could  then  set  the  number  of 
readings  so  that  the  sampling  time  would  cover  the  same 
time  that  the  spectrophotometric  system  was  recording, 
which  could  be  computed  as  before.  But  problems  were 
found  with  this  solution.  The  first  was  that  this 
method  left  no  room  for  error  on  the  part  of  the 
spectrophotometric  system  in  terms  of  the  time  it  takes 
in  making  its  measurements.  If  for  some  reason  it  took 
more  or  less  time,  the  oxygen  recorder  would  have  no 
way  of  knowing  this,  and  the  data  would  not  all  be  from 
the  same  time  period.  The  manual  for  the  new  converter 
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also  stated  that  the  rate  ofL_data_conversior^-»rould 
increase  with  the  clock  speed  of  the  computer,  but  it 
gave  no  further  information  and  no  method  for 
calculation  of  this  function.  A  formula  for  computing 
the  rate  was  found  in  an  example  program,  but  worked 
only  for  4.77  MHz  machines,  and  we  are  using  a  faster 
machine . 

Because  the  issue  of  primary  importance  is  to 
record  the  data  simultaneously,  a  trade  off  was  made 
and  a  method  similar  to  the  old  one  was  used.  The  data 
recording  would  stop  only  when  the  TTL  pulse  returned 
to  an  inactive  state.  This  increased  program  overhead, 
and  the  sampling  frequency  was  reduced  by  approximately 
20%  because  the  TTL  pulse  had  to  be  checked  between 
each  reading.  This  was  an  acceptable  solution  because 
only  the  averages  cf  the  readings  in  a  set  are  commonly 
used  during  data  analysis .  During  testing,  a 
resolution  was  found  that  would  produce  a  Hz  close  to 
that  used  in  the  old  system  (i.e.,  120  Hz),  so  the  new 
solution  worked,  though  not  elegantly. 

The  first  version  of  the  program  uses  the  first 
method  described  to  solve  the  timing  problem.  It  is 
capable  of  taking  more  samples  per  set,  but  the  timing 
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is  unsure.  The  second  version  uses -the ^second  method/— 
it  takes  fewer  readings  per  set,  but  the  timing  is 
always  correct.  Neither  version  is  capable  of 
implementing  a  specific  Hz,  due  to  the  hardware 
limitations . 

There  is  also  a  minor  concern  in  computing  the 
elapsed  time.  The  clock  used  to  read  the  time  updates 
only  18.2  times  per  second,  which  allows  for 
approximately  a  5 . 4 -hundredths  of  a  second  variance. 

But  the  values  computed  from  this  time  are  only  for 
reference  and  are  not  used  in  any  other  calculations, 
so  this  may  not  be  of  much  consequence. 

A  bug  was  found  in  the  driver  routines  which 
caused  the  program  to  crash  under  certain  conditions. 
Whenever  a  certain  function  in  the  driver  was  called 
and  the  direction  flag  of  the  processor  was  set,  the 
driver  ended  up  attempting  to  execute  instructions  in 
the  interrupt  vector  table,  the  beginning  of  memory. 

The  direction  flag  is  used  by  the  processor  during 
string  instructions  to  determine  the  direction  of  the 
strings  in  memory,  either  forwards  or  backwards. 
Normally  this  flag  is  set  properly  before  any  string 
instruction  is  used  and  does  not  need  to  be  in  any 
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predetermined  state,  but  the  device  driver  function 
does  not  reset  this  flag.  A  solution  was  found  by 
inserting  an  instruction  to  clear  this  flag  before 
calling  any  device  driver  function.  Forgetting  to 
reset  the  direction  flag  is  a  common  programming  error 
on  the  80x86. 

IMPLICATIONS 

This  project  has  accomplished  its  two  objectives. 
The  first  was  to  improve  the  accuracy  of  data 
acquisition,  which  is  mostly  a  result  of  the  new  data 
acquisition  system.  The  second  was  to  make  the 
acquisition  of  data  as  simple  as  possible  for  the  user. 
This  has  been  accomplished  by  designing  a  user-friendly 
interface  and  automating  as  much  of  the  process  as 
possible,  leaving  more  time  and  energy  for  the 
experiment.  Much  improvement  has  been  made  in  this 
area  as  compared  with  the  old  program.  As  a  result, 
the  data  will  not  only  be  more  accurate  but  easier  to 
collect. 

CONCLUSIONS 

This  project  only  took  five  of  the  eight  weeks 
that  I  spent  as  an  apprentice  at  LAIR.  I  also  wrote  a 
program  to  process  the  spectral  data  from  the 
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spectrophotometric  system  (see  Appendix  C  for  source 
listing).  The  original  two  programs  run  on  a  VAX 
network  system  because  they  require  such  a  large  amount 
of  memory.  Because  the  experiment  is  going  to  be  moved 
next  year  to  a  location  where  a  network  may  not  be 
available,  a  program  was  needed  that  would  not  require 
the  network.  The  new  program  uses  disk  buffers  instead 
of  memory  and  is  therefore  much  slower,  but  if  a  RAM 
disk  is  used,  program  performance  is  greatly  enhanced. 
At  any  rate,  slowly  acquired  data  are  better  than  no 
data  at  all. 

Many  other  smaller  tasks  were  undertaken  along  the 
way.  These  include  but  are  not  limited  to  the 
installation  and  trouble  shooting  of  several  programs, 
the  optimization  of  (though  not  understanding  of)  a 
Fortran  program  that  models  oxygen  diffusion  in  and  out 
of  red  blood  cells,  and  the  successful  installation  of 
OS/2  on  one  computer.  One  of  the  most  significant 
accomplishments  was  learning  Intel  80x86  Assembly 
Language  during  the  first  weeks,  which  enabled  the 
second  version  of  the  data  acquisition  program  to  be 
written. 
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figures 

1.  This  graph  represents  all  the  data  collected 
in  this  experiment  graphed  in  3-dimensions.  The  x-axis 
represents  the  wavelength  values  from  480  to  650 
nanometers,  in  1 -nanometer  steps,  the  y-axis  the 
absorbance  values,  and  the  z-axis  the  partial  pressure 
of  oxygen  over  time. 

2.  This  figure  shows  the  different  components  of 
the  experimental  system.  The  reaction  chamber,  oxygen 
concentration  electrode,  monitor  and  recorder,  the 
spectrophotometric  system  and  its  control  of  the  oxygen 
system  with  the  TTL  pulse,  the  gas-flow  system  to 
oxygenate  the  hemoglobin,  and  the  system  to  keep  the 
temperature  in  the  reaction  chamber  constant. 

3.  This  graph  represents  the  fractional 
saturation  of  hemoglobin  computed  as  a  function  of  the 
partial  pressure  of  oxygen  in  ram  Hg.  The  fractional 
saturation  of  hemoglobin  is  computed  using  the 
following  formula: 

Fractional  Saturation  *=  %oxyHb  /  (%oxyHb  +  %deoxyHb)  . 
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Appendix  A 

Version  1  of  the  oxygen  voltage  concentration  recorder. 
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♦include  <stdio.h> 

♦include  <.stdlib.h> 

♦include  <math.h> 
linclude  <signal.h> 
linclude  <ctype.h> 

♦include  <dos.h> 
linclude  <string.h> 

extern  void  SH_CALL (char  *, float  *, unsigned  short  *) ; 

♦define  ANACNT  8  /*  Number  of  analog  channels  */ 

♦define  DIGCNT  12  /*  Number  of  digital  channels  */ 

♦define  TRUE  1L 

♦define  FALSE  NULL 

unsigned  short  digital [DIGCNT] ;  .  /*  Digital  channel  array  */ 

float  analog (ANACNT] ;  /*  Analog  channel  array  */ 

signed  int  exitf lag=FALSE;  /*  exit  flag  */ 


/* 

*  initial  -  sets  up  the  hardware,  reads  calibration  settings  and  set 

*  the  channels 
*/ 

int  initialize (void) 

( 

register  int  i; 

/*  Read  CALIB.DAT  file  and  calibrate  the  analog  inputs  */ 

SH_CALL ("Fn", analog, digital)  ;  /*  Call  A-D  driver  */ 

if  (digital  10]— 0  &&  digital  (2]  — 0)  { 

printf (” \nERROR:  Driver,  ADRIVE.COM,  not  installed/  ") ; 
printf(M  or  analog  card  not  installed. \n") / 
return (1) ; 

} 

if  (digital  [0]  ==0  &&  digital  [2]  !«=0)  { 

printf ("\nERROR:  No  analog  card  selected.  BRD  SEL  switch  set  to  0.\n"); 

return (1) ; 

} 

if  (digital [ 0 ]! =0  &&  digital ( 6] ==0)  { 

printf ("\nERROR:  CALIB.DAT  file  not  correct  or  FIND.EXE  was  not  run.\n"); 

return (1) ; 

) 

if  (digital  (0]  >  digital (6))  ( 

printf ("\nERR0R:  Calibration  numbers  are  not  correct . \n" ) ; 
return  (1) ; 

) 

if  (digital [0]>ANACNT  II  digital (2] >DIGCNT)  ( 

printf ("\nERROR:  Too  many  channels  installed.\n"); 

printf ("Change  size  of  ANACNT  and/or  DIGCNT  in  heading\n"); 

return (1) ; 

) 

/*  set  number  of  analog  input  channels  to  use  */ 

digital (0] "1;  /*  use  one  analog  channel  */ 

SH_CALL("N", analog, digital) ; 

/*  Set  analog  channel  resolution  */ 

digital (0] “16; 

f>7 


/*  16  bit  mode  */ 


/*  Set  up  analog  channel  range  and  calibrate  */ 
digital [0] =2;  /*  10  volts  */ 

SH_CALL ("re", analog, digital) ; 

/*  Set  up  digital  channel  direction  */ 

for  (i=0;  i<DIGCNT;  i++)  digital [i] =0;  /*  set  for  input  */ 

SH_CALL ( " S " , analog, digital) ; 

/*  Set  delay  time  to  zero  */ 
digital [0] =0; 

SH_CALL("d",  analog, digital) ;  /*  set  delay  value  */ 

) 


/* 

*  Usage  -  prints  out  swithes  and  tells  their  usage 
*/ 

void  Usage (char  **argv) 

( 

print f ("\nUsage:  %s  [switches) \r\n", argv[0] ) ; 

printfC  -a [filename]  write  02  average  to  file\n"); 

printfC  -d[ filename]  write  all  data  to  file  (.xxx  added) \n"); 

printf("  -h [number]  sampling  rate  in  hertz  (default=173) \n" ) ; 

printf("  -n[number]  number  of  sets  to  collect\n"); 

printfC  default:  read  until  user  interrupts\n" )  ; 

printfC  “t  print  time  taken  to  read  oxygen  voltages\n") 

printfC  print  all  data  to  screen\n")  ; 

printfC  -z  [number]  scans  per  sample  (default=8)  \n\n") ; 


/* 

*  mkdfname  -  adds  an  extension  to  the  oxygen  voltage  reading  file 

*  based  on  the  number  of  the  SET  that  we  are  on 

* 

*  name=name  of  the  file  (without  extension) 

*  dfnum=SET  number  we  are  on 
*/ 

void  mkdfname (char  *name,  int  dfnum) 

( 

register  int  i; 
char  ext [ 4 ] ; 

sprintf (&ext [0] , " %03d" , dfnum) ; 

for  (i*=0;  i<13;  i++)  ( 

if  (name [i] ==' . ' )  { 

strcpy  (finame [i+1] , &ext [0] ) ; 
break; 

)  else  if  (name [i] ***0)  { 
name [ i] ■' . ' ; 

strcpy (&name [i+1] , &ext [01); 
break; 


/* 

*  chandler  -  function  called  when  Control-C  is  pressed.  Sets  the  exit 

*  flag  to  TRUE.  f>8 


‘int  chandler (void) 

•< 

signal (SIGINT,  SIG_IGN) ; 

exitflag=TRUE; 

signal (SIGINT, chandler) ; 

return  0; 

} 


/* 

*  main  -  the  program!  !  ! 

*/ 

int  main  (int  argc,  char  **argv) 

register  int  i;  /*  general  purpose  loop  counter  */ 

int  pdata=FALSE;  /*  print  all  voltage  readings  to  screen  */ 

int  petime=FALSE;  /*  print  time  taken  to  read  oxygen  voltages  * / 

int  scansps=8;  /*  scans  per  sample  */ 

int  setlim=-l;  /*  number  ofsets  */ 

int  dfon=FALSE;  /*  write  all  voltage  readings  to  a  file  */ 

int  hertz=173;  /*  hertz  */ 

int  samplecount;  /*  number  of  voltage  readings  to  make  avr  */ 

int  dfnum;  /*  number  of  SETS  of  voltage  readings  taken  */ 

FILE  *datafile=NULL, *avrf ile=NULL;  /*  file  handles  */ 

char  df name [50] , af name  150] ;  /*  file  names  */ 

float  sum, avr, *buf ;  /*  variables  for  computing  the  avr  V  */ 

struct  dostime_t  timel,  time2;  /*  variables  used  for  elasped  time  */ 

signed  int  s,h; 

/*  set  CTR-C  handler  so  we  can  exit  properly  */ 
if  (signal (SIGINT, chandler) (int (*)  ())-l)  ( 

pr int f ("ERROR:  Unable  to  set  CTR-C  handler"); 
return (1) ; 

) 

/*  do  hardware  initialization  and  make  sure  driver  is  installed  */ 
if  (initialize () )  return  (1); 

/*  process  switches  */ 
for  (i^l;  i<argc;  i++)  { 

if  ( ! (argv ( i ]  (0)=='-'))  ( 

print f ( "ERROR:  Switch  error\n"); 

Usage (argv) ; 
goto  end; 

)  else  ( 

switch (tolower  (argv[i] [1] ) )  ( 

case  'a'  : 

if  (argv(i) (2)“-0)  /*  default  name  */ 

strcpy (&afname [0] , "02AVR.DAT") ; 
else  /*  use  user-defined  name  */ 

strcpy (&afname[0) ,  6argv[i] [2] ) ; 
avrf ile-f open (iafname [0] , "w") ; 
if  (lavrfile)  { 

printf ("ERROR:  Unable  to  open  file  %s\n", iafname [0] ) ; 

goto  end; 

) 

break; 

case  ' d' 

if  (argv[i] [2J--0)  /*  default  name  */ 

strcpy (&dfname(0) , "02VDAT" ) ; 
else  /*  use  user-defined  name  */ 

strcpy (tdf name (0] ,  4argv(i] (2) ) ; 

<r 9 


/*  disallow  Ctr-C  during  handler  */ 
/*  reattach  handler  to  CTR-C  */ 


break; 
case  ' h'  : 

hertz=*atoi  (&argv(i)  [2} )  ; 
break; 
case  'n'  : 

setlim=atoi (&argv(i) (2] ) ; 
break; 
case  't'  : 

pet  ime*=TRUE ; 
break; 
case  'w'  : 

pdata*TRUE; 
break; 
case  ' z'  : 

scansps=atoi (&argv [ i ] [2] ) ; 
break; 
case  '?'  : 

Usage (argv) ; 
goto  end; 
default  : 

print f ("ERROR:  Unknown  Switch  ' %c' \n", argv[i) [1] ) ; 

Usage (argv); 
goto  end; 


/*  compute  number  of  readings  to  take  */ 
samplecount^scansps^O . 2*hertz; 

/*  allocate  memory  to  read  voltage  data  into  */ 
buf *=  (float  *)malloc  (samplecount *sizeof  (float) )  ; 
if  ( ! buf )  { 

printf ("ERROR:  Not  enough  memory\n")  ; 
goto  end; 

) 

/*  print  out  information  for  user  */ 

printf ("Hertz :  %d\n" , hertz) ; 

printf ("Scans  Per  Sample:  %d\n" , scansps) ; 

printf  ("Number  of  Voltage  Readings  to  take:  %d\n" ,  sampleco’int )  ; 
if  (avrfile)  printf ( "Writ ing  Averages  to  file:  %s\n" ,  Safname [0] ) ; 
if  (dfon)  printf ("Writing  Voltage  Readings  to  files:  %s . xxx\n" , idfname [ 

if  (setlim==-l)  { 

printf  ("\nHit  Control-C  to  Stop.Nn"); 

)  else  { 

printf ( "Number  of  Sets  to  read:  %d\n", setlim) ; 
printf ("Hit  Control-C  to  Abort . \n\n" )  ; 

) 


printf ("Waiting  for  TTL  Signal ... \n" ) ; 

for  (dfnum-1;  (setlim«--l) ? (1) : (df num<-setlim) ;  dfnum4+)  ( 

if  (exitflag)  (  printf ("Terminating. .. \n") ;  goto  end; 
if  (dfon)  ( 

mkdfname (fcdfname (0) , dfnum) ; 
dataf ile«f open (idfname 10) , "w") ; 
if  ((datafile)  ( 

printf ("ERROR:  Unable  to  open  file  %s\n" ,  4df name (0 ) ) ; 

goto  end; 

) 


) 


) 


do  ( 


/*  wait  for  TTL  signal  */ 

if  (exitflag)  (^printf  ("Terminating ... \n") ;  goto  end;  ) 


}  while  (digital  [0]**=!) ; 

if  (exitflag)  {  printf ("Terminating. .. \n") ;  goto  end;  ) 

/*  collect  02  voltages  */ 
digital (0] ^samplecount; 
digital f 1 ] *0; 
if  (petime)  ( 

__do s_get time  (fit imel) ; 

SH_CALL("M", buf,  digital) ; 

_dos_gettime (&time2) ; 
s« (int) time2 . second-timel . second; 
h« (int) time2 . hsecond-timel . hsecond; 
if  (h<0)  (  h=100+h;  s--;  ) 

printf  ("Elasped  Time  «=  %d.%d  seconds\n", s,h) ; 

)  else  ( 

SH_CALL("M",buf , digital) ; 

) 

if  (exitflag)  {  printf ("Terminating. .. \n") ;  goto  end;  ) 

/*  compute  average  average  oxygen  voltage  */ 
if  (pdata)  printf  ("Oxygen  Voltage  Data:  #%d\n", dfnum) ; 
for  (i*0, sum* (float) 0;  i<samplecount ;  i++)  ( 
if  (pdata)  printf ("%20e",buf [i] ) ; 

if  (datafile)  fprintf (datafile, "%20e\r\n", buf  [i] )  ; 
sum=sum+buf [ i ] ; 

> 

avr=sum/samplecount ; 

printf ("Average  Oxygen  Voltage  for  %04d  readings  (%04d) :  %20e\n" 

, samplecount, dfnum, avr) ; 
if  (avrfile)  fprintf (avrfile, "%20e\r\n" , avr) ; 

/*  close  data  file  for  oxygen  voltage  readings  */ 
if  (datafile)  { 

fclose (datafile) ; 
dat af i le=NULL; 

) 

> 

end  : 

if  (buf)  free (buf); 
if  (datafile)  fclose (datafile) ; 
if  (avrfile)  fclose (avrfile) ; 

return (0)  ; 

) 


/*  end  of  file  -  'o2volt.c'  */ 
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Appendix  B 

Version  2  of  the  oxygen  voltage  concentration  recorder. 
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##  -  Program:  o2volt 

*#  -  File:  o2volt.lmk 

.##  —  Author:  David  Dahle  (summer  apprentice) 
##  -  Date:  July-August  1992 

.##  -  Purpose:  compile/assemble  o2volt  program 

##  ---  Letterman  Army  Institute  of  Research 
##  ---  Persidio  of  San  Francisco,  CA  94129-6800 
## 


BASE=o2volt 

OBJ=obj 

SOURCE=source 

LST=listings 

ASMOPT=/ml  /z  /n  /c  /I  /Ik : \o2volt\source 

COPT=/AS  /FPi87  /c  /Fo$ (OBJ) \fmath . ob j  /Fa$  (OBJ) \fmath . asm  /W3  /Gs  \ 

/Fs$ (LST) \fmath. 1st 

FILES=$ (OBJ) \main.obj  $  (OBJ) \hard. ob j  $ (OBJ) \util . ob j  $ (OBJ) \fmath. ob j  \ 
$ (OBJ) \help.obj 


$ (BASE) . exe :  $ (FILES) 

link  /NOI  $  (FILES) ,$ (BASE)  .exe  ; 

$ (OBJ) \fmath . ob j :  $  (SOURCE) \fmath.c 
cl  $ (COPT)  $  (SOURCE) \fmath . c 

$ (OBJ) \main . ob j  :  $  (SOURCE) \main . asm  $ (SOURCE) \header . i 

tasm  $ (ASMOPT)  $ (SOURCE) \main.asm,  $  (OBJ) \main.obj, $ (LST) \main. 1st 

$ (OBJ)  \hard. obj :  $ (SOURCE) \hard, asm  $ (SOURCE) \header . i 

tasm  $ (ASMOPT)  $ (SOURCE)  \hard.asm, $ (OBJ) \hard.obj, $ (LST) \hard. 1st 

$ (OBJ) \util .obj :  $ (SOURCE) \util. asm  $ (SOURCE) \header. i 

tasm  $ (ASMOPT)  $ (SOURCE) \util . asm, $ (OBJ) \util .obj,  $ (LST) \util . 1st 

$ (OBJ) \help.obj :  $  (SOURCE) \help. asm  $ (SOURCE) \header . i 

tasm  $ (ASMOPT)  $ (SOURCE)  \help. asm, $ (OBJ) \help.obj, $ (LST) \help. 1st 

$ (SOURCE) \header . i : 


##  end  of  file  'o2volt.lmk' 
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-  Program:  o2volt 

- File:  header .  i 

;  -  Author:  David  Dahle  (summer  apprentice) 

-  Date:  July-August  1992 

;  -  Purpose:  global  program  definitions 

;  -  Letterman  Army  Institute  of  Research 

;  -  Persidio  of  San  Francisco,  CA  94129-6800 


callsys  macro  interrupt, service 
mov  ah, service 

int  interrupt 

endm 


FNAME_LEN  equ  127 

NUMBUF_LEN  equ  127 

DACQ_ENTRIES  equ  3000 

AVRFL_DWIDTH  equ  23 

DATFL_DWIDTH  equ  25 

MIDDLE_LINE  equ  13 

DISPLAY_PAGE  equ  lh 

D I S  P  LAY_HE I GHT  equ  25 

DISPLAY_WIDTH  equ  80 


DISPLAY_NORMAL  equ  00010111b 

DISPLAY_HI LIGHT  equ  OOlOlllib 


;  end  of  file  ' header. i' 
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*  b.  >t  *  X,  X  «  nt. 


-  Program:  o2volt 

-  File:  help. asm 

-  Author:  David  Dahle  (summer  apprentice) 

-  Date:  July-August  1992 

-  Purpose:  help  text  and  functions  for  oxygen  voltage  recorder 

-  Letterman  Army  Institute  of  Research 

-  Persidio  of  San  Francisco,  CA  94129-6800 

******************************************************************** 

dosseg 

locals 

include  header. i 


.model  small 


.  data 


begin  db 
db 
db 
db 
db 

instant  db 
db 
db 
db 
db 
db 
db 

load  db 
db 
db 
db 
db 
db 
db 
db 

save  db 

db 
db 
db 
db 
db 
db 
db 

exit  db 

db 
db 
db 
db 

avrfn  db 
db 
db 
db 
db 
db 
db 

datfn  db 
db 


-12345678 9012345 67 8 9012345678 90123- - 
'The  Begin  function  is  used  to  ',0 
'start  data  acquisition.  Once',0 
'started,  acquisition  may  be',0 
'terminated  by  pressing  any  key.',0 
0 

'The  Instant  function  displays',  0 
'the  current  analog  voltage  level', 0 
'and  the  current  state  of  the' , 0 
' TTL  signal.  This  function  can', 

'be  terminated  by  pressing  any' ,  0 
' key. ' , 0 
0 

'The  Load  function  allows  a',0 
'config  file  with  a  name  other',0 
'than  the  default  name  to  be',0 
'loaded.  A  string  input  field' ,  0 
'will  appear  below  the  command' ,  0 
'list  where  the  name  can  be',0 
'entered.  ESCAPE  aborts', 0 
0 

'The  Save  function  allows  a',0 
'config  file  to  be  saved  to  a',0 
'file  with  a  name  other  than  the',0 
'the  default  name.  A  string' ,  0 
'will  appear  below  the  command' ,  0 
'bar  where  the  new  name  can  be',0 
'entered.  ESCAPE  aborts', 0 
0 

'The  Exit  function  writes',  0 
'the  configuration  settings',  0 
'to  the  default  config  file',0 
'and  then  exits. ',0 
0 

'The  Average  File  field',  0 
'specifies  the  name  of  the',0 
'file  in  which  the  averages',  0 
'from  each  set  will  be  written. ',0 
'If  no  name  is  given,  then  no' ,  0 
'file  will  be  created. ',0 
0 

'The  Data  Files  field', 0 
'specifies  the  names  of  files',  0 
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'in  wmcn  eacn  readings  rro«r,o 
'each  set  will  be  written. ',0 
'If  no  name  is  given,  then  no',0 
'files  will  be  created. ',0 
0 

'The  Experiment  Number  field', 0 
'specifies  the  number  of  the',0 
'current  experiment.  If  the',0 
'Automatic  File  Names  option' , 0 
'is  turned  off,  this  number  is' , 0 
' ignored. ' ,  0 
0 

'The  Automatic  File  Names ',0 
'field  lets  you  turn  this',0 
'feature  on  or  off.  If  on,  the',0 
'program  will  create  file  names ',0 
'based  on  the  current  date  and' , 0 
'the  experiment  number. ',0 
0 

'The  Print  Time  field  lets  you' , 0 
'specify  if  you  want  the  elasped',0 
'time  that  the  TTL  pulse  was',0 
'active  and  the  data  rate  in' ,  0 
'hertz  to  be  computed. ',0 
0 

'The  Analog  Input  Range  field', 0 
' lets  you  specify  the  projected' , 0 
'range  of  the  analog  voltage',  0 
'signal.  These  are  listed  on',0 
'page  185  in  the  manual  and  are',0 
'used  by  the  "r"  command. ',0 
0 

'The  Analog  Input  Resolution' ,  0 
'field  lets  you  specify  the',0 
'resolution  of  the  readings .',  0 
'These  are  listed  on  page  148',  0 
'in  the  manual  and  are  used  by',0 
'the  "a”  command. ',0 
0 


•>  M.a*.  appear  in  file  'util. asm' 

-y*  r  r  prmtStringLimit  :near 


..  1  :»  d  i  sp  1  ayHe  lpText 

.  •,  inter  to  set  of  null-teriminated  null-terminated  strings 


short  continue 


je 

strloop : 

mov  al, l si] 

inc  si 

cmp  al,0 

jne  short  _ strloop 

continue : 

inc  dh  ;  inc  line  number 

loop  short  _ loop 

endOf Text : 
ret 


t 

;  -  Procedure:  displayCmdHelp 

; - Input:  al1®  [command] 

;  -  Output : 

t 

public  displayCmdHelp 


displayCmdHelp : 


cmp 

al,  0 

jne 

call 

_ jnotl 

dXsplayBeginHelp 

jmp 

end 

not 1 :  cmp 

al,  1 

jne 

call 

not  2 

display Inst antHelp 

jmp 

end 

_ not 2:  cmp 

al,  2 

jne 

_ not  3 

call 

displayLoadHelp 

jmp 

_ end 

_ not 3:  cmp 

a  1 , 3 

jne 

not  4 

call 

displaySaveHelp 

jmp 

end 

_ not 4 :  cmp 

al,  4 

jne 

call 

_ ^not5 

displayExitHelp 

jmp 

_ end 

_ not5 : 

_ end :  ret 

public 

displayBeginHelp 

displayBeginHelp : 

lea 

si, begin 

call 

displayHelpText 

ret 

public 

displaylnstantHelp 

displaylnstantHelp : 

lea 

si, instant 

call 

displayHelpText 

ret 

public 

displayLoadHelp 

displayLoadHelp 

lea 

si , load 

call 

displayHelpText 

ret 

public 

displaySaveHelp 

displaySaveHelp 

lea 

si , save 

call 

displayHelpText 

I 


public  displayExitHelp 
displayExitHelp : 

lea  si , exit 

call  displayHelpText 

ret 

public  displayAvrf nHelp 
displayAvrf nHelp : 

lea  ai,avrfn 

call  displayHelpText 

ret 

public  displayDatfnHelp 
displayDatf nHelp : 

lea  si,datfn 

call  displayHelpText 

ret 

public  displayExpnumHelp 
displayExpnumHelp : 

lea  si,expnum 

call  displayHelpText 

ret 

public  displayAutofnsHelp 
di splayAutof nsHelp : 

lea  si,autofns 

call  displayHelpText 
ret 

public  displayPrttHelp 
displayPrttHelp: 

lea  si,prtt 

call  displayHelpText 

ret 

public  diaplayRangeHelp 
di  spl ayRangeHelp : 

lea  si, range 

call  displayHelpText 

ret 

public  displayResolHelp 
di spl ayResolHelp : 

lea  si ,  reaol 

call  displayHelpText 

r  et 


end 

end  cf  file  'help  asm' 


-  Program:  o2volt 

-  File:  main. asm 

-  Author:  David  Dahle  (summer  apprentice) 

-  Date:  July -August  1992 

-  Purpose:  main  program  module  for  oxygen  voltage  reader 

-  Letterman  Army  Institute  of  Research 

-  Persidio  of  San  Francisco,  CA  94129-6800 

******************************************************************** 


dosseg 

locals 

include  Header. i 


.model  small 


.  data 

;  display  text 

ptitle  db  '  Data  Acquisition  Oxygen 

Voltage  Recorder  ' , 0 

pbtop  db  'Oihimmmimmtmmimmprograrnmmmmmmm 

pbmid  db  'fftimmmiimmmnmmimiDiaiogmmiimmmmi 

iiiintmiimv,o 

pbbot  db  'omitmimmtitimmimittmiiimmmitimiimmi 


pet  op 

db 

'Oimmimt 

pebot 

db 

'omttimm 

avrf  1 

t 

db 

'Average  File: 

dat  f  1 

t 

db 

'Data  Files 

.  / 

autnu 

t 

db 

' Experiment 

Nu 

aut  f  n 

t 

db 

' Automatic 

Fi  1 

et  ime 

t 

db 

'Print  Elasped 

range 

t 

db 

'Analog  Input 

resol 

t 

db 

'Analog  Input 

et  ime 

1 

db 

'ON  '  ,  0 

et  ime 

2 

db 

'  OFF' , 0 

r  ange 

0 

db 

'  50  mV 

'  ,  0 

range 

1 

db 

' 500  mV 

'  ,0 

range 

2 

db 

'  10  V 

'  ,0 

range 

3 

db 

'  *  /  -  2  5  mV 

' ,  0 

r  ange 

4 

db 

' 4/ -250  mV 

'  ,  0 

r  ange 

5 

db 

'  4/-b  V 

' ,  0 

i  ange 

6 

db 

'  2  mA 

'  ,0 

i  ange 

7 

db 

'  20  mA 

' ,  0 

r  ange 

8 

db 

'  */-l  mA 

'  ,  0 

i  ange 

9 

db 

' ♦/- 10  mA 

' ,  0 

r  ang 

lo 

db 

' 4/-50  mA 

' ,  0 

i  ang 

1  6 

db 

'  AR  /w  umV 

' ,  0 

r  ang 

1  7 

db 

'AR  / w  biV 

' ,  0 

i  ang 

1  8 

'll) 

'  AR  / w  unit 

' ,  0 

r  ang 

1  9 

db 

'  AR  /w  bib 

'  ,  0 

ff*8ol 

1 

'11 

'  1 ow  no l se ' 

,  0 

i  f*sol 

2 

'll 

'  1 b  bit  s 

,  o 

i  eso  J 

'11- 

'15  bits 

,  0 

r  e so  1 

4 

'11 

'  1 4  bit  a 

,  o 

i  e  n  o  1 

C, 

<11- 

'13  bits 

,  o 

1  **«'  •  1 

f 

'll. 

'32  bite 

,  o 

fT 

'lb 

4 

r  r  -m/n 

(■ 

db 

'  !**»g  l  n  '  ,  0 

'  >  -rum 

1 

'11- 

'  I  net  ant 

,  o 

these  must  be  spaces  here!! 


,  f  iuml  -e  t  i  I  mman  1  i  *  ••mu  -  1 


comm_3  db  '  Save  -  ,  u 

.comm_4  db  '  Exit  '  ,  0 

;  startup  message 

.startup  db  'Data  Acquisition  Program  -  Oxygen  Voltage  Recorder'  ,  0 

db  'Strawberry  Tree  Incorporated  Analog-to-Digital  Converter', 0 

db  ' Letterman  Army  Institute  of  Research' ,  0 

db  'Persidio  of  San  Francisco,  CA  94129-6800' , 0 

blankl  db  '  ' , 0 

db  'Author:  David  Dahle',0 

db  'Version:  2.10  Assembled:  ',??date,0 

db  0 

hard_er  db  '  Press  any  key  to  exit . . . ' , 0 

hard_8c  db  'Setup  completed  successfully.',© 

;  program  variables 


curdate 

dw 

2  DUP 

(0) 

avrf  1 

db 

FNAME 

LEN 

DUP 

(0) 

dat  f  1 

db 

FNAME 

LEN 

DUP 

(0) 

ne  *buf 

db 

NUMBUF 

LEN  DUP 

(0) 

etime 

dw 

1 

1-ON,  2-OFF 

range 

dw 

5 

range  of  analog  input 

resol 

dw 

2 

resolution  of  analog  input 

autofn 

dw 

2 

1-ON  2 -OFF 

autonum 

dw 

1 

number  for  automatic  increment 

config  defaultName  db  ' o2volt . cnf ' , 0 

;  program  status 

mode  db  0  ;  0«com, 1-conf ig 

com:.. and  db  0  ;  0=begin,  i-instant ,  2=hardware  info,  3-exit 

com  sav  db  0  ;  saved  copy  of  command 

config  db  1  ;  config  line  1-7 

global  resol  :byte,  avrf  1  :byte,  datf  1  :byte,  range  :  word,  etime  -.byte 
global  startuprbyte, curdate : word, autonum : word, blankl :byte 
global  autofn:word 


.  code 

;  labels  that  appear  in  'util. asm' 

extrn  pr intTextToScreen : near 

ext  rn  set UpSt  r ingGadget : near, setDisplayAndCursorPos : near 

ext  rn  removeStr ingGadget : near , addSt  r  mgGadgetChar : near 
extrn  del St r ingGadget Char : near , back St r ingGadget Char : near 
extrn  left  St  r ingGadget Char : near , r ight St r ingGadget Char : near 
extrn  pr int Cursor St  ring : near , print  St  ring : near 
ext  rn  print  Cursor St r ingAtt r lb : near , pr int Str ingAtt  r ib : near 

extrn  print Cursor St  ring Limit : near , pr int St  r ingLimit : near 
ext  rn  convert ItoA : near , convert  Lt  oA : near , convertAtoI : near 
extrn  1 oadConf igur at ionF i le : near , saveConf igurat ionFi le : near 

extrn  get Con f i gFi leName  near , clearKeyBoardBuf fer : near 

,  labels  that  appear  in  'hard  asm' 

extrn  set UpHardware : near , inst ant  Readings : near 

extrn  initial! zeHardware : near , beginDat aAcquisit ion : near 

labels  that  apprear  in  'help  asm' 

extrn  di spl ay He sol  Help : near , di spl ayRangeHe lp : near 

extrri  di  spl  ayPrt  t  Help  :  near  ,  di  spl  ayAut  ofna  Help:  near 
extrn  di splayExpnumHelp  near , di spl ayDat  f n Help : near 
extrn  di spl ayAvr  f  nHelp : near , displayCmdHelp : near 


|*  r  o'-edur  e 


mt  l  n 


;  -  output : 

; - Preserves : 

i 

;  called  by  C-Language  startup  code 

9 

public  _main 

main : 

;  get  current  date 

callsys  21h,2ah 
mov  [curdate],cx 

mov  [curdate+2] ,  dx 

;  setup  screen  display 

call  initDisplay  ;  color,  borders 

call  print_allConfig  ;  configuration 

call  print_startupMessage  ;  dialog  window 

;  setup  hardware 

call  setUpHardware 

cmp  ax ,  0 

je  short  _ noHardwareErrors 

;  error  with  A/D  board,  exit  program 
mov  si,dx 

call  printTextToScreen  ;  print  error  text 

call  print  cmdLineBuay 

call sys  1 6h, 0 

jmp  short  _ exitProgram 

_ noHardwareErrors : 

call  init ial i reHardware 

call  print  cmdLine 

mov  si,ofTaet  hardac 

call  printTextToScreen 

main  : 

mov  al,  1  command] 

call  displayCmdHelp 

lea  dx, conf igdef aultName 

call  loadConf igurat ionFi le 

call  mainLoop 

lea  dx, conf lg  def aultName 

call  saveConf igurat ionFi le 

ex 1 1  Pi ogr  am 

call  c learKeyBoardBuf far 

call  resetDisplay 

mov  ax,  0  ,  set  a  return  code 

ret 


-  Procedure:  print  st at tupMessage 

-  -  -  1 nput  none 

-  Output  none 

- Pi eaer  vea : 


print  st ar t upMeseage 

mov  a i, OFFSET  at  at  tup 

start  Me  asage 

puah  ai 

call  printTextToScreen 


;  get  date 
;  year 
;  month, day 


loop2 : 

mov  al , l si J 

inc  si 

cmp  al,0 

jne  loop2 

mov  aT, (si]  ;  null-string-end  of  startupText 

cmp  al,0 

je  short  _ startMessageEnd 

jmp  startMessage 

startMessageEncTT 
ret 


-  Procedure:  mainLoop 

-  Input :  none 

-  Output :  none 


mainLoop : 

callsys  1 6h,  0 


wait  for  next  character 


cmp 

je 

cmp 

jne 

cmp 

jne 

mov 

cmp 

jne 

call 

jmp 

notCommO : 

cmp 

]ne 

call 

jmp 

notComml : 

cmp 

]n« 

call 

cmp 

j« 

call 
comm2Ex it : 
jmp 

notComm2 : 

cmp 

jne 

call 

cmp 

1« 

call 
commlExit  : 

j»np 

notComm3 : 

1«*P 

notCoramRet : 
call 
imp 


al,0  ;  check  for  extended  characterr 

short  _ extended 

al,13  ;  check  for  return  key 

short  notReturn 
(mode] 70 

short  _ notCommRet 

al , { command] 
al,  0 

short  _ notCommO 

beginDataAcquisit ion 
mainLoop 

al,  1 

short  _ notComml 

instant_Readings 

mainLoop 

al,  2 

short  notComm2 
getConFTgFi leName 
ax,  0 

short  comm2Exit 
loadCon?igurationFi le 

mainLoop 

al,  3 

short  notComm3 
getConFTgFi leName 
ax,  0 

short  comm3Exit 
saveConTigurat ionF i le 

mainLoop 

short  exit 

handleConf lgGadget  Ret  ux  n 
mainLoop 


not  Ret  win 
cmp 


al ,  6 


;  check  for  backspace 


I  aiuua  j  ,  X 

short  notBackConf igGadget 
[conf igT, 4 

short  notBackStringGadget 
backStrlngGadgetChar 
notBackStringGadget : 
notBackConf igGadget : 

jmp  mainLoop 


crop 

jne 

cmp 

jg 

call 


notBackspace : 

cmp  al , 32 

jl  short  _ notPrintChar 

cmp  al , 126 

jg  short  notPrintChar 

call  addSt rTngGadgetChar 
jmp  mainLoop 


a  printable  character? 


notPrintChar : 

jmp  mainLoop 

exit :  ret 


extended : 

cmp 

jne 

cmp 

jne 

mov 

cmp 

jne 

mov 

imp 

not  Under : 

dec 


ah,  75 

short  _ notLeft  :  check 

byte  ptr  lmode],0 

short  _ notLeftModeO 

al, [command] 
al ,  0 

short  _ notUnder 

al, [nurocon] 
short  _ under 

a  1 


under  : 

mov  [command], al 

call  print  cmdLine 

mov  al, [command) 

call  di splayCmdHelp 

jmp  mainLoop 

notLeftModeO: 

cmp  [ conf ig]  ,  4 

jg  short  notLeftSt  r ingGadget 

call  left  St  r ingGadgetChar 

not  LeftStr  ingGadget  : 

jmp  mainLoop 


for  Cursor 


Left 


not  Left  : 

cmp 
jne 
cmp 
jne 
mov 
l  nc 
cmp 
jle 
mov 

not  over 

mov 
cal  1 
mov 
call 
jmp 

not  P  t  qht  ModeO 
cmp 


ah,  77 

short  not  Bight 
byte  ptr  [mode] , 0 
short  not  Bight ModeO 
al , ( command] 

al 

a  1 ,  ( numcoro) 
short  not  Over 
al ,  0 

( command ] , a  1 
print  cmdL l ne 
a  1 ,  (command] 
d i sp 1 ayCmdMe 1 p 
mainLoop 


check  for  Cursor  Bight 


( conf ig ) , 4 


calx  rigntou'i.ii^oau^Bk^iiai. 

notRightStringGadget : 

jmp  mainLoop 


notRight : 

cmp 

jne 

cmp 

jne 

mov 

mov 

mov 

mov 

mov 

call 

call 

jmp 

notCommUp : 
cmp 
jne 
call 
mov 
mov 
mov 
call 
mov 
call 
jmp 

notAtTheTop : 
call 
dec 
call 
jmp 


ah,  72 

short  notUp 

[mode] 7^ 

short  _ notCommUp 

al,  [command] 

[com_sav] ,  al 
[command] ,  -1 
[mode] , 1 
[config] , 7 
print_cmdLine 
handleConf igGadget Setup 
mainLoop 

[conf ig] , 1 

short  _ notAtTheTop 

handleConf igGadget Removal 
byte  ptr  [mode],0 
al ,  (com  aav] 

[commanH] , al 
print_cmdLine 
al, [command] 
displayCmdHelp 
mainLoop 

handleConf igGadgetRemoval 
[conf ig] 

handleConf igGadget Setup 
mainLoop 


;  check  for  Cursor  Up 
;  remove  hilight  display 

;  bottom  editing  gadget 


notUp : 


cmp 

ah,  80 

jne 

short  notDown  ;  check 

for  Cursor  Down 

cmp 

[mode] 7^ 

jne 

short  _ notCommDown 

mov 

al,  [command]  ;  remove 

hilight 

display 

mov 

[comaav] , al 

mov 

[ command] , - 1 

mov 

( mode ] , 1 

mov 

(config], 1  ;  bottom 

editing 

gadget 

call 

print  cmdLine 

call 

handleConf igGadget  Setup 

jmp 

mainLoop 

not  CommDown : 

cmp  (conf ig] , 7 

jne  short  _ notAtTheBot t om 

call  handleConf igGadget Remove  1 

mov  [mode] ,  0 

mov  al , (com  aav] 

mov  [commanH], a 1 

call  pr int_cmdLine 

mov  a  1,  (command] 

call  displayCmdHelp 

jmp  mainLoop 

not  AtTheBottom : 

call  handleConf igGadgetRemoval 

inc  (config] 

call  handleConf igGadget Set  Up 

jmp  mainLoop 


not  Down : 


8llOI  L.  4IV/WWVJA.V.WV* 

cmp  (mode]7T 

jne  short  notDelConfig 

cmp  (configT,  4 

jg  short  notDelStringGadget 

call  delStrlngGadgetChar 

notDelStringGadget : 
notDelConfig: 

jmp  mainLoop 

notDelete : 

jmp  mainLoop 


-  Procedure:  handleConf igGadgetSetUp 

-  Input :  none 

-  Output :  none 

-  Preserves : 


handleConf igGadgetSetUp : 


mov 

al, (config] 

cmp 

al,  1 

jne 

short  _ notConfigl 

call 

displayAvrf nHelp 

mov 

al,  0 

mov 

bx, offset  avrfl 

mov 

C 1 , FNAME  LEN 

mov 

ch, AVRFL  DWIDTH 

mov 

dl ,  17 

mov 

dh,  3 

call 

set UpStr ingGadget 

jmp 

_ exit 

notConf igl : 
cmp 
jne 
call 
mov 
mov 
mov 
mov 
mov 
mov 
call 
jmp 

notConf ig2 : 

cmp  a  1 ,  3 

jne  short  notConf ig3 

call  displayExpnumHelp 
mov  ax, (autonum] 

call  convertltoA 

mov  si, offset  nedbuf 

conf ig3Loop : 

mov  al , (bx ) 

inc  bx 

mov  (si ] , al 

inc  si 

cmp  al ,  0 

jne  config3Loop 

mov  il,l 

mov  bx, offset  nedbuf 


al,  2 

short  _ notConf ig2 

displayDat f nHelp 
al,  0 

bx, offset  datfl 
cl, FNAHELEN 
ch, DATFL  DWIDTH 
dl ,  15 
dh,  4 

set UpSt  r ingGadget 
exit 


;  al«=0  string  gadget 


;  al*0  string  gadget 


;  return  dsbx 


a  1-1  number  gadget 


mov 

mov 

mov 

call 

jmp 

notConf ig3 : 
cmp 
jne 
call 
mov 
call 
jmp 

notConf  ig4  : 
cmp 
jne 
call 
mov 
call 
jmp 

notConf ig5 : 
cmp 
jne 
call 
mov 
call 
jmp 

notConf i  g6 : 
cmp 
jne 
call 
mov 
call 

notConf ig7 : 

exit : 

ret 


cn,  o 
dl,  22 
dh,5 

setUpStringGadget 

exit 


al,  4 

short  _ notConfig4 

displayAutofnsHelp 

bl,DISPLAY_HILIGHT 

print_autofn 

exit 


al,  5 

short  _ notConfig5 

displayPrttHelp 
bl , DISPLAY__HI  LIGHT 
print_etime 
exit 


al,  6 

short  _ notConf ig6 

displayRangeHelp 
bl , DISPLAY  HI LIGHT 
print_range 
exit 


al,  7 

_ ^notConf ig7 

dxsplayResolHelp 
bl, DISPLAY  HILIGHT 
print_resol 


-  Procedure:  handleConf igGadgetRemoval 

-  Input :  none 

-  Output :  none 


handleConf igGadgetRemoval  : 

mov  al ,  ( conf ig) 

cmp  a  1 , 1 

jne  short  _ notConfigl 

call  removeSt r ingGadget 

jmp  short  exit 


not  Conf i  gl  : 

cmp  a  1 , 2 

jne  short  _ notConf rg2 

call  removeSt r ingGadget 
jmp  short  _ exit 


not  Conf ig2 : 

cmp  a  1 ,  3 

)ne  short 


notConf ig  t 


mo  v 

call 

mov 

call 

jmp 

notConf ig3 : 
crop 
jne 
mov 
call 
jmp 

notConf ig4 : 
cmp 
jne 
mov 
call 
jmp 

notConf ig5 : 
cmp 
jne 
mov 
call 
jmp 

notConf ig6 : 
cmp 
jne 
mov 
call 
jmp 

notConf ig7 : 

exit : 

ret 


81  r  itcu 

convert At o I 
[autonum] , ax 
print_autonum 
short  exit 


al ,  4 

short  notConf ig4 

bl,DISPLAY_NORMAL 
print_autofn 
short  exit 


al,  5 

short  _ notConfig5 

bl , DI SPLAY_NORMAL 
print_etime 
short  exit 


al,  6 

short  notConf ig6 

bl, DISPLAY_NORMAL 
print_range 
short  exit 


al,  7 

short  notConf ig7 

bl, DISPLAY  NORMAL 
print_resoT 
short  exit 


-  Procedure:  handleConf igGadgetReturn 

-  Input :  none 

-  Output :  none 


handleConf igGadgetReturn : 

mov  al ,  ( conf lg ] 


notConf ig3 : 

cmp  al ,  4 

jne  short  _ notConfig4 

mov  bl, DISPLAY  NORMAL 

call  print_auto?n 

mov  ax, (autofn) 

cmp  ax,  2 

]ne  short  _ notAutofnl 

mov  ax,  1 

}mp  short  _ notAutofn2 

not Aut of  n 1  : 

inc  ax 

n^t  Aut  of  n2  : 

mo*'  (  aut  of  n  )  ,  ax 

mov  bl, DISPLAY  HILIC.HT 

call  print  auto?n 


’  •  ’  i 


notConf ig4 : 
cmp 
jne 
mov 
call 
mov 
cmp 
jne 
mov 

jmp 

notEtimel : 
inc 

_notEtime2 : 

mov 

mov 

call 

jmp 


al ,  5 

short  _ notConf ig5 

bl, DISPLAY_NORMAL 
pr int_et ime 
ax, [etime] 
ax,  2 

short  _ notEtimel 

ax,  1 

short  notEtime2 


[etime] , ax 
b 1 , D I S PLAY_H I LIGHT 
print_etime 
short  exit 


notConf ig5 : 
cmp 
jne 
mov 
call 


al,  6 

short  _ notConfig6 

bl , DISPLAY_NORMAL 
print_range 
ax, [range] 
ax,  10 

short  _ notC6Lessl6 

ax,  10 

short  _ notC6LoopAround 

ax,  1 6 

short  configSEnd 


notC6Lessl6 : 

cmp  ax, 1 9 

jne  short 

mov  ax,0 

jmp  short 

_notC6LoopAround : 

inc  ax 


notC6LoopAround 
conf ig6End 


conf ig6End : 
mov 
mov 
call 
jmp 

notConf ig6 : 
cmp 
jne 
mov 
call 
mov 
cmp 
jne 
mov 
jmp 

notResol 1 : 
inc 

notResc 1 2 : 
mov 
mov 
call 
-imp 


[range] , ax 
bl , DISPLAY_HILIGHT 
print_range 
short  exit 


al,  7 

short  _ notConfig7 

bl, DISPLAY  NORMAL 
print_resoT 
ax, [resol] 
ax,  6 

short  _ notResoll 

ax,  1 

short  notResol2 


( resol ] , ax 
bl, DISPLAY  HILIGHT 
pr int_i esoT 
short  exit 


notconng  /  : 
exit : 

ret 


-  Procedure:  print_cmdLineBusy 

-  Input : 

-  Outpu: 

-  Preserves : 


public  print_cmdLineBusy 
print  cmdLineBusy : 

“  mov  bh,DISPLAY_PAGE 

mov  dl , 3 

mov  dh, 11 

callsys  10h,2 
mov  ah, 9 

mov  al, '  ' 

mov  bh,DISPLAY_PAGE 

mov  bl,DISPLAY_NORMAL 

mov  cx, 40 


callsys  lOh, 9 


BIOS  writ 


lea 

mov 

mov 

call 

ret 


si , hard_er 
dl ,  3 
dh,  11 

printstring 


-  Procedure:  print_cmdLine 

-  Input :  none 

-  Output :  none 

-  Preserves:  ds,es,si,di 


jmpO  : 
Ijrnpl  : 


public 
idLine : 

print  cmdLine 

mov 

bh, DISPLAY  PAGE 

mov 

dl,  3 

mov 

dh,  11 

callsys 

lOh, 2  ,  r 

mov 

si, offset  comm  0 

mov 

cx,  0 

push 

cx 

cmp 

[command] , cl 

je 

short  3mp0 

mov 

bl , DISPLAY_NORMAL 

jmp 

short  }mpl 

mov 

bl , D I SP LAY_H 1 1  1GHT 

call 

pr  int Cur aor St r ingA* 

pop 

cx 

inc 

cx 

cmp 

( numcorn ] , c 1 

39® 
i  et 

1  oop 

r\\  i  r 


e  character 


^  *  ’ 


Procedure  pi sn‘ 


A  i  * 


output :  none 
Preserves :  .. .7 


public  print_datf  1,  print_avrf  l,print_autonum,print_allConf  ig 
print_allConf ig : 

call  print_avrfl 

call  print__datfl 

call  print  autonum 

mov  bl, DISPLAY  NORMAL 

call  print_auto7n 

mov  bl , DI SPLAY_NORMAL 

call  print  etime 

mov  bl ,  D  I^PLAYJNORMAL 

call  print_range 

mov  bl, DISPLAY  NORMAL 

call  print_resoT 

ret 


print_avrf 1 : 

mov 

mov 

mov 

call 

mov 

mov 

call 

ret 

print_datf 1 : 

mov 

mov 

mov 

call 

mov 

mov 

call 

ret 

pr int_autonum : 
mov 
mov 
mov 
call 
mov 
call 
mov 
mov 
call 
ret 

print_autofn : 

mov 

mov 

mov 

call 

mov 

cmp 

jne 

mov 

jmp 

_ jmpl :  mov 

_ jmp 2 :  call 

ret 

print_etiroe: 

mov 

mov 

mov 

call 


si, offset  avrfl_t 
dh,  3 
dl,  3 

printstring 
si, offset  avrfl 
cl , AVRFL_DWIDTH 
printCursorStringLimit 


si, offset  datfl_t 
dh,  4 
dl,  3 

printstring 
si, offset  datfl 
cl , DATFL_DWIDTH 
printCursorStringLimit 


si, offset  autnu__t 
dh,  5 
dl,  3 

printstring 
ax, I autonum] 
convert I toA 
8i,bx 

Cl,  4  ;  max  length  of  string 

printCursorStringLimit 


si, offset  autfn_t 
dh,  6 
dl,  3 

printstring 
ax, [autofn] 
al,  1 

short  _ j»pl 

si,  offset  etime__l 

short  _ jmp2 

si, offset  etime_2 
printCursorStringAttrib 


si, offset  etime_t 
dh,  7 
dl,  3 

printstring  92 


cmp 

jne 

mov 

jmp 

. _ jmpl :  mov 

_ jmp2:  call 

ret 

print_range : 

mov 

mov 

mov 

call 

mov 

cmp 

jle 

sub 

notOver : 

mov 

mul 

lea 

add 

call 

ret 

print_resol : 

mov 

mov 

mov 

call 

mov 

cmp 

jne 

mov 

jmp 

_jmpl :  cmp 
jne 
mov 
jmp 

_ jmp2 :  cmp 

jne 

mov 

jmp 

_jmp3 :  cmp 
jne 
mov 
jmp 

__jmp4 :  crap 
jne 
mov 
jmp 

_ jmp5 :  mov 

jmpf :  call 
ret 


al,  1 

short  _ jmpl 

si, offset  etime_l 

short  _ jnip2 

si, offset  etime_2 

printCursorStringAttrib 


si, offset  range_t 

dh,  8 

dl,3 

printstring 
ax, [range] 
ax,  10 

_ not Over 

ax,  5 

cl, 11 
cl 

si, range_0 
si,  ax 

printCursorStringAttrib 


si, offset  resol_t 
dh,  9 
dl,  3 

printstring 
ax, [resol] 
al,  1 

short  _ jmpl 

si, offset  resol_l 

short  _ jmpf 

al,  2 

short  _ jmp2 

si, offset  resol_2 

short  _ jmpf 

al,  3 

short  _ jmp3 

si, offset  resol_3 

short  _ jmpf 

al,  4 

short  _ jmp4 

si, offset  resol_4 

short  _ jmpf 

al,  5 

short  _ jmp5 

si, offset  resol_5 

short  _ jmpf 

si, offset  resol_6 
printCursorStringAttrib 


;  -  Procedure:  initDisplay 

;  -  Input :  none 

.  -  Output:  none 

;  -  Preserves:  ds,es  ...? 

• 

9 

initDisplay: 

;  make  page  the  current  display  page 

mov  al , DISPLAY_PAGE  93 


( 


;  set  screen  colors 


mov 

bh, DISPLAY 

PAGE 

mov 

dx,  0 

callsys 

lOh,  2 

• 

9 

Set 

Cursor 

Position 

(BIOS) 

mov 

ah,  9 

mov 

al,'  ' 

mov 

bh,  DISPLAY 

PAGE 

mov 

bl,  DISPLAY' 

"NORMAL 

mov 

CX,  DISPLAY' 

WIDTH*DISPLAY  HEIGHT 

callsys 

lOh,  9 

• 

9 

BIOS 

write 

char  -  color  screen 

mov 

bh,  DISPLAY_ 

PAGE 

mov 

dx,  0 

callsys 

lOh,  2 

• 

9 

Set 

Cursor 

Position 

(BIOS) 

mov 

ah,  9 

mov 

al, '  ' 

• 

mov 

bh,  DISPLAY 

PAGE 

mov 

bl,  DISPLAY" 

HILIGHT 

mov 

cx, DISPLAY" 

WIDTH 

callsys 

lOh,  9 

9 

BIOS 

write 

char  -  color  top  line 

;  set  up  title  bar  text 

mov  si, offset  ptitle 

mov  dx,0  ;  cursor  position 

call  printstring 

;  set  up  screen  text  borders 

mov  si, offset  pbtop 

mov  dl,0  ;  dl,dh  (x,y) 

mov  dh, 1 

call  printstring 


mov 

mov 

loopl : 

mov 

mov 

call 

mov 

mov 

call 

inc 

loop 


CX, MIDDLE  LINE -2 
dh,  2 

si, offset  pline 
dl,  0 

printstring 
si, offset  pline 
dl, DISPLAY_WIDTH-1 
printstring 
dh 

_ loopl 


mov  si, offset  pbmid 

mov  dl ,  0 

call  printstring 


mov 

loop2 : 

mov 

mov 

inc 

call 

mov 

mov 

call 

loop 


CX,  (DISPLAY_HEIGHT-2)  -MIDDLE_LINE 

si, offset  pline 
dl,  0 
dh 

printstring 
si, offset  pline 
dl,DISPLAY_WIDTH-l 
printstring 
loop2 


mov  si, offset  pbbot 

mov  dl,0 

inc  dh 

call  printstring 
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loop3 : 


mo  v  aj.  /  4  j 

mov  si, offset  pctop 

call  printstring 

mov  cx, 7 

• 

mov  si, offset  pline 

mov  dl,43 

inc  dh 

call  printstring 

mov  si, offset  pline 

mov  dl,  DISPLAY__WIDTH-3 

call  printstring 

loop  _ loop3 

mov  dl,43 

inc  dh 

mov  si, offset  pcbot 

call  printstring 


;  make  page  the  current  display  page 
ret 


-  Procedure:  resetDisplay 

-  Input :  none 

-  Output :  none 

-  Preserves:  none 


resetDisplay: 

mov  al,0 

callsys  lOh, 5 
ret 


;  BIOS  Set  Active  Page  back  to  zero 


end 

;  end  of  file  'main. asm' 
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„•  -  Program:  o2volt 

.  ---  File:  util. asm 

;  -  Author:  David  Dahle  (summer  apprentice) 

j  -  Date:  July-August  1992 

;  -  Purpose:  misc  routines 

;  -  Letterman  Army  Institute  of  Research 

;  ---  persidio  of  San  Francisco,  CA  94129-6800 


dosseg 

locals 

include  Header. i 


.model  small 


.data 

;  string  gadget  variables 
g_flags  db  0 

scrn_x  db  0 

scrn_y  db  0 

scrn  w  db  0 

buf_Ten  db  0 

buf_off  db  0 

buf_cur  db  0 

buf_wid  db  0 

buf_seg  dw  0 

buf_ptr  dw  0 


;  gadget  flags  0«string  l*»num 

;  x,y  position  of  gadget 
;  onscreen  width  of  gadget 
;  characters  in  buffer 
;  display  offset  into  buffer 
;  cursor  offset  into  buffer 
;  max  length  of  buffer 
;  segment  buffer  is  in 
;  segment  offset  to  buffer 


;  number  to  ascii  text  buffer 
nconbuf  db  NUMBUF  LEN  DUP  (0) 


;  dislay  window  parameters 

curlin  db  0  ;  cursor  position  in  status  window 


;  dos  error  texts 

diskfer  db  'Disk  Full',0 

derrmsg  db  ' Invalid  function  number  ' ,  0 

db  'File  not  found  ',0 

db  ' Path  not  found  ' , 0 

db  'No  more  handles  (to  many  files)  ',0 

db  'Access  denied  ',0 

db  ' Invalid  handle  ' , 0 

db  'Memory  control  blocks  destroyed  ',0 

db  '  Not  enough  memory  ' ,  0 

db  'Invalid  memory-block  address  ',0 

db  'Invalid  environment  block  ',0 

db  ' Invalid  format  ' ,  0 

db  'Invalid  file-access  code  ',0 

db  ' Invalid  data  ' ,  0 

db  'You  should  never  see  this  one!!!?!@#l@  ',0 

db  'Invalid  drive  specification  ',0 

db  'Attempt  to  remove  the  current  directory',0 

db  'Not  the  same  device  ',0 

db  'No  more  files  ',0 

MAXJDOSERROR_NUMBER  equ  18 

DOSERROR  STRING_WIDTH  equ  40 


CONF I G_LENGTH  equ  4+ (FNAME  LEN *2) +NUMBUF  LEN+(2*5) 


cnfoper  db  'ERROR:  Unable  to  open  configuration  file.',0 

cnfrder  db  'ERROR:  DOS  Error  while  reading  configuration  file.',0 

cnfwter  db  'ERROR:  DOS  Error  while  writing  configuration  file.',0 
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cnfwtok  cud  *  conr iguration  cxxe  written. 

cnfrdok  db  'Configuration  File  Read.',0 

cnfbuf  db  (CONFIG  LENGTH)  DUP  (0) 

cnfanyl  db  'Name  oT  Configuration  File:  ' ,0 


global  nconbuf : byte , curdate : word, autonum : word, startup : byte 
global  blankl:byte 


.  code 

;  labels  in  file  'main. asm' 

extrn  print_allConfig:near 


-  Procedure:  getConf igFileName 

-  Input :  none 

- Output:  ax*=0,  don't  load  file 

-  ax!**0,  load  file,  ds :dx=filename 

-  Preserves : 


public  getConf igFileName 

getConf igFileName : 

mov  dl , 3 

mov  dh, 12 

lea  si, cnfanyl 

call  printstring 

mov  al,0 

lea  bx, cnfbuf 

mov  [bx],al 

mov  cl, 127 

mov  ch,40 

mov  dl,31 

mov  dh, 12 

call  setUpStringGadget 

mainLoop : 

callsys  16h, 0  ;  wait  for  next  character 

cmp  al,0  ;  check  for  extended  characterr 

je  short  _ extended 

cmp  al,13  ;  check  for  return  key 

jne  short  _ notReturn 

call  removeStringGadget 

mov  cl, 74 

mov  dl , 3 

mov  dh, 12 

lea  si,blankl 

call  printStringLimit 

mov  ax, 1 

lea  dx, cnfbuf 

ret 

_ notReturn : 

cmp  al,8  ;  check  for  backspace 

jne  short  notBackspace 

call  backStrXngGadgetChar 

jmp  mainLoop 

_ notBackspace: 

cmp  al,27 

jne  short  _ notEscape 

call  removeStringGadget 
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mov  dl ,  3 

fflov  dh, 12 

lea  si,blankl 

call  print StringLimit 

mov  ax , 0 

ret 

notEscape : 

cmp  al,32  ;  a  printable  character? 

jl  short  _ notPrintChar 

cmp  al,126 

jg  short  notPrintChar 

call  adds trrngGadget Char 

jmp  mainLoop 

notPrintChar : 

jmp  mainLoop 


extended : 

cmp  ah, 75 

jne  short  notLeft  ;  check  for  Cursor  Left 

call  leftStrTngGadgetChar 

jmp  mainLoop 

notLeft : 

cmp  ah, 77 

jne  short  _ notRight  ;  check  for  Cursor  Right 

call  rightStringGadgetChar 

jmp  mainLoop 

notRight : 

cmp  ah, 83  ;  check  for  a  delete 

jne  short  notDelete 

call  deist ringGadgetChar 

jmp  mainLoop 

notDelete : 

jmp  mainLoop 


-  Procedure:  loadConf igurationFile 

-  Input:  dx«name  of  config  file  to  load 

-  Output : 

-  Preserves: 


public  loadConf igurationFile 
loadConf igurat ionFi le : 

mov  al,0  ;  open  for  reading 

callsys  2lh,3dh 

jne  short  _ noOpenError 

lea  si,cnfoper 

call  dosIOError 

jmp  _ exit 


noOpenError : 
push 
mov 
mov 
lea 

callsys 

jne 

lea 

call 

jmp 


ax 

bx,  ax 
cx,  51 

dx,nconbuf 
21h, 3fh 

noFileErrorl 
sT,  enf rder 
dosIOError 
closeExit 


;  save  handle 

;  length  of  init  string 
;  destination  buffer 


noFileErrorl : 
cmp 


ax,  cx 
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lea 

call 

j™P 

-_noFileError2 : 

lea 

mov 

_ cmpLoop : 

mov 

inc 

mov 

inc 

cmp 

jne 

cmp 

jne 


si, cnfrder 
dosIOError 
closeExit 


di, startup 
sif  dx 

al,  [si]  /  string  read 

si 

ah/ (di]  ;  source  string 

di 

al,  ah 

short  notConfigFile  . 

ah,0  ;  equal  at  null/  string  ok 

short  cmpLoop 


pop 

push 

mov 

lea 

callsys 

jne 

lea 

call 

jmp 


bx 

bx 

cx, CONFIG_LENGTH 
dx, cnfbuf 
21h,3fh 

short  _ noReadErrorl 

si, cnfrder 
dosIOError 
short  closeExit 


noReadErrorl : 
cmp 

je 

lea 

call 

jmp 

noReadError2 : 
lea 
lea 
mov 
cmp 

j© 

jmp 

dateSamel : 
mov 
cmp 
jne 
mov 
jmp 


ax,  cx 

short  noReadError2 

si,cnfr3[er 

dosIOError 

short  closeExit 


si, cnfbuf 
di , curdate 
ax, [si] 

[di],ax 

short  _ dateSamel 

short  dateNotSame 


ax, [si+2] 

[di+2] , ax 

short  _ dateNotSame 

ax, [autonumj 
short  allHere 


dateNotSame: 

mov  ax,-l 


set  -1,  reset  autonum  to  1 


allHere : 

add 
add 
mov 
mov 
mov 
cld 
copyLoop : 

movsb 

loop 

cmp 

jne 

mov 


si,  4 
di,  4 
dx,  ds 
es,dx 

cx, C0NFIG_LENGTH-4 


_ copyLoop 

ax,-l 

short  _ noResetAuto 

[autonum] , 1 
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close  file  handle 


noRe set Auto : 

call  print  allConfig 

lea  si,cnfrdok 

call  print TextToScreen 

jmp  _ closeExit 

notConf igFile : 

lea  si,notcf 

call  printTextToScreen 

closeExit : 

pop  bx 

callsys  21h,3eh  ; 

exit : 

call  clearKeyBoardBuffer 


-  Procedure:  saveConf igurationFile 

-  Input:  dx=file  name 

-  Output : 

-  Preserves: 


public  saveConfigurationFile 

saveConf igurationFile : 
mov  cx,  0 

callsys  21h, 3ch 

jnc  short  _ noOpenError 

lea  si,cnfoper 

call  dosIOError 

jmp  short  _ exit 

_ noOpenError : 

push  ax 

mov  bx,ax 

lea  dx, startup 

mov  cx,51 

callsys  21h,40h 

jnc  short  _ noFileWriteErrorl 

lea  si,cnfwter 

call  dosIOError 

jmp  short  _ closeExit 

_ noFileWriteErrorl : 

cmp  ax,cx 

je  short  _ noFileWriteError2 

mov  al,-l 

call  dosIOError 

jmp  short  _ closeExit 

_ noFileWriteError2 : 

pop  bx 

push  bx 

lea  dx,curdate 

mov  cx,CONFIG_LENGTH 

callsys  21h,40h 

jnc  short  _ noFileWriteErrorS 

lea  8i,cnfwter 

call  dosIOError 

jmp  short  _ closeExit 
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noFileWriteError j : 

cmp  ax,cx 

je  short  _ noFileWrit*  Error4 

mov  al,-l 

call  dosIOError 

jmp  short  _ closeExit 

noFileWriteError4 : 

lea  si,cnfwtok 

call  printTextToScreen 

closeExit : 

pop  bx 

callsys  21h,3eh 

exit : 

call  clearKeyBoardBuf fer 

ret 


-  Procedure:  dosIOError 

-  Input :  si=pointer  to  initial  string  to  output 

-  al=error  number  returned  by  dos  (-l=diskfull) 

-  Output : 

-  Preserves : 


public  dosIOError 

dosIOError: 

push  ax 

call  printTextToScreen 

pop  ax 

cmp  al,-l 

jne  short  _ noDiskFullError 

lea  si,diskfer 

jmp  short  _ printText 

_ noDiskFullError : 

cmp  al,MAX_DOSERROR_NUMBER 

ja  short  _ noErrorMessage  ;  unsigned,  please 

dec  al 

mov  bl , DOSERROR_STRING_WIDTH 

mul  bl  ;  error  in  al 

lea  si/derrmsg 

add  si*  ax 

_ printText : 

call  printTextToScreen 

ret 

_ noErrorMessage : 

mov  ah, 0 

call  convert I toA 

mov  si,bx 

call  printTextToScreen 

ret 


-  Procedure:  clearKeyBoardBuf fer 

-  Input :  none 

-  Output :  none 

-  Preserved:  ...? 
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clearKeyBoardBui ter : 

callsys  16h,l 
je  short 

callsys  16h,0 
jmp  short 

noCharacter : 

™"  ret 


_ noCharacter 

clearKeyBoardBuf fer 


-  Procedure :  printTextToScreen 

_  Input:  ds:si=points  to  a  null-terminated  string  to  output 

-  Output : 

-  Preserves: 


PUBLIC  printTextToScreen 


printTextToScreen : 


mov 

mov 

add 

mov 

call 

inc 

cmp 

jne 

dec 

mov 

mov 

mov 

mov 

mov 

mov 


dl,  1  ; 

dh, [curlin] 
dh,MIDDLE_LINE+l 
cl, 78  ; 

print St ringLimit 


x  position  to  print 


width  of  screen  we  have 


callsys  lOh, 6 


[curlin] 

[curlin] , 10 

short  _ noNeedToScroll 

[curlin] 

al,l  ;  number  of  lines  to  scroll 

bh, DISPLAY_NORMAL  ;  attribute  of  new  blank  line 

cl,l 

ch, MIDDLE_LINE+1 
dl,  78 

dh , D I SP LAY_HE I GHT - 2 


noNeedToScroll : 
ret 


-  Procedure:  printTtSBackLine 

-  Input : 

-  Output : 


public  printTtSBackLine 
printTtSBackLine : 

cmp  [curlin], 0 

je  short  atTopLine 

dec  [curlin]" 

_ _ atTopLine : 

ret 


-  Procedure:  setUpStringGadget 

-  Inputs:  al*flags 

ds :bx=pointer  to  buffer  of  an  ascnz  string 
cl*max  length  of  buffer  including  null 
ch*length  of  onscreen  disjj>^y 


;  Output :  none 

j  -  Preserves:  ds,ea,di 


public  setUpStringGadget 
setUpStringGadget : 


loopl : 


mov 

(g_f lags] ,  al 

;  save 

mov 

[scrn_x] , dl 

mov 

{scrn_yj , dh 

mov 

[scrn_wj , ch 

mov 

[buf_wid] ,  cl 

mov 

Ibuf_8eg] , ds 

mov 

[buf_ptr] ,  bx 

mov 

cl,  0 

;  get  i 

mov 

al, [bx] 

inc 

bx 

inc 

cl 

cmp 

al,  0 

jne 

loopl 

dec 

cl 

mov 

[buf  len] , cl 

mov 

[buf_off  ] ,  0 

mov 

[buf_cur j ,  0 

call 

ret 

setDisplayAndCursorPos 

;  get  the  number  of  chars  in  this  buffer 


;  set  initial  offsets 


t 

;  -  Procedure:  setDisplayAndCursorPos 

;  -  Input :  none 

;  -  Output:  none 


public  setDisplayAndCursorPos 
setDisplayAndCursorPos : 


push 

ds 

mov 

si,  [buf_ptr] 

r 

buffer  offset  into  segment 

mov 

ds, [buf  seg] 

f 

buffer  segment 

mov 

al, [buf_of f ] 

mov 

ah,  0 

add 

si,  ax 

mov 

cl, [scrn_w] 

i 

gadget  width 

mov 

dl, [scrn_x] 

mov 

dh,  [scrn^j 

call 

print  StrmgLimit 

pop 

ds 

mov 

dl, [8crn_x] 

add 

dl, [buf_cur] 

mov 

dh, [scrn_y] 

mov 

bh, DISPLAY  PAGE 

callsys 

lOh,  2 

t 

BIOS  set  cursor  pos 

ret 

9 

;  -  Procedure:  removeStringGadget 

;  -  Input:  none 

;  -  Output :  none 

;  -  Preserves:  ?? 
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public  removeStringGadget 
removeStt ingGadget : 

push  ds 

mov  si, [buf_ptr] 

mov  ds, [buf_seg] 

mov  cl, [scrn_w] 

mov  dl, Iscrn_xj 

mov  dh,  [scrn  yj 

call  print St ringLimit 

pop  ds 

ret 


9 

;  Procedure:  addStringGadgetChar 

;  Input:  al=ascii  character  to  insert 

; - Output:  none 

• 

9 


public  addStringGadgetChar 
addStringGadgetChar : 

mov  cl, [buf_len] 

mov  ch,  0 

inc  cx 

cmp  [buf_wid] , cl 

jbe  _ bufferFull 

cmp  [g_f lags] , 0 

je  short  _ notNumberGadget 


;  including  null 
;  is  the  buffer  already  full 
;  unsigned  please! ! ! 

;  0=string 


cmp 

je 

cmp 

je 

cmp 

je 

cmp 

jl 

cmp 

jg 


al, '+' 

short  numberGadgetChar 
al,'-' 

short  numberGadgetChar 
al, '  .' 

short  numberGadgetChar 
al, ' 0' 

short  notNumberGadgetChar 
al, ' 9' 

short  _ notNumberGadgetChar 


numberGadgetChar : 
notNumberGadget : 


push 

ds 

push 

es 

push 

ax 

9 

mov 

bl, (buf_off ] 

add 

bl, [buf  cur] 

mov 

bh,  0 

9 

mov 

ax, [buf_seg] 

mov 

ds,  ax 

mov 

es,  ax 

mov 

si,  [buf_ptr] 

push 

si 

add 

si ,  cx 

• 

9 

dec 

si 

9 

mov 

di,  si 

inc 

di 

• 

9 

sub 

cx,bx 

9 

std 

9 

save  character 
bx=position  in  buffer 


cx»characters  in  buffer 
(old  length) 

destination  address  one  byte  later 
cx^characters  remaining 

backwards ! ! 
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;  bx«buffer  poa,  still 


lOOp 

pop  si 

pop  ax 

nov  (si+bx],al 

pop  ea 

pop  da 

inc  (buf  len] 

call  setDTsplayAndCursorPos 

call  right St ringGadgetChar 

bufferFull : 

notNumberGadgetChar : 
ret 


-  Procedure:  delStringGadgetChar 

-  Input :  none 

-  Output :  none 


public 

delStringGadgetChar 

delStringGadgetChar : 

mov 

al, (buf_len] 

mov 

ah, (buf_offj 

add 

ah, {buf_curj 

cmp 

al,  ah 

jbe 

nothingToDe let e 

push 

ds 

mov 

bx, [buf_seg] 

mov 

ds,bx 

mov 

es,bx 

mov 

di,  [buf_ptr] 

mov 

cl,  ah 

mov 

ch,  0 

add 

di,  cx 

mov 

si,di 

inc 

si 

sub 

al,  ah 

mov 

cl,  al 

mov 

ch,  0 

cld 

;  forwards 

loop:  movsb 

loop 

_ loop 

dec 

[buf_len] 

POP 

ds 

call 

setDisplayAndCursorPos 

nothingToDelete : 

ret 

-  Procedure:  backStringGadgetChar 

-  Input :  none 

-  Output :  none 


public  backStringGadgetChar 
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mov  ax,  (but_cui j 

cmp  al,0 

jne  short  goFunction 

mov  al,  [buT^off  J 

cmp  al,0 

je  short  _ exit 

goFunction: 

call  leftStringGadgetChar 

call  delStringGadgetChar 

exit:  ret 


-  Procedure :  leftStringGadgetChar 

-  Input:  none 

-  Output :  none 


public  leftStringGadgetChar 
leftStringGadgetChar : 

mov  al, [buf_curj 

mov  ah, (buf_offj 

cmp  al,0 

jne  short  _ notCursorAtStart 

cmp  ah, 0 

je  short  _ exit 

dec  ah 

jmp  short  _ setNewPos 

_ notCursorAtStart : 

dec  al 

_ setNewPos : 

mov  [buf_cur] ,  al 

mov  [buf  off], ah 

call  setDTsplayAndCursorPos 
exit :  ret 


-  Procedure;  right St ringGadget Char 

-  Input :  none 

-  Output:  none 


public  rightStringGadgetChar 
rightStringGadgetChar : 

mov  bl, [buf_len] 

mov  bh, [buf_off] 

mov  al, [buf_cur] 

mov  ah,  [scrn__w] 

mov  cl,bh  ;  is  the  cursor  at  the  end  of  the  text 

add  cl,al 

cmp  cl,bl 

je  short  _ exit  ;  equal,  at  the  end  of  the  line 

inc  al  ;  advance  cursor  pos  by  movement  or  scrolling 

cmp  al,ah 

jb  short  _ notAtTheEnd 

mov  al,ah 

dec  al  ;  max  pos  is  under  the  last  character 

inc  bh  ;  buffer  offset 

_ notAtTheEnd: 

mov  (buf_off],bh  ;  save  new  parameters 

mov  (buf  cur],al 

call  setDTsplayAndCursorPos 
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-  Procedure:  printstring  /  printCursorString 

-  Input:  si«*segment  offset  to  null  terminated  string 

-  (dl,dh«(x,y)  position  to  start  at) 

-  Ouput:  ai«points  to  next  byte  after  string's  null 

- Preserves:  bx,cx,dh,di,bp, ds,es 


public  printCursorString, printstring 
printCursorString : 


push 

cx 

push 

bx 

mov 

bh, DISPLAY  PAGE 

callsys 

lOh,  3 

•  * 

9 

get  current  cursor  pos 

pop 

bx 

pop 

cx 

9 

ch, cl  gets  set  to  new  cursor  mode 

printstring: 

push 

cx 

push 

bx 

mov 

bh, DISPLAY  PAGE 

callsys 

lOh,  2 

f 

already  in  dx  -  cursor  pos 

_ loop: 

mov 

al, [si] 

9 

character  to  print 

inc 

si 

cmp 

al,  0 

• 

9 

zero,  end  of  string 

je 

short  end 

mov 

bh, DISPLAY_PAGE 

mov 

cx,  1 

callsys 

lOh, Oah 

• 

9 

BIOS  print  single  character 

inc 

dl 

mov 

bh, DISPLAY  PAGE 

callsys 

lOh,  2 

• 

9 

BIOS  set  cursor  pos 

jmp 

_ _ loop 

_ end : 

pop 

bx 

pop 

cx 

ret 


-  Procedure:  printStringAttrib  /printCursorStringAttrib 

-  Input:  si^segment  offset  to  null  terminated  string 

-  bl*attribute  to  make  string 

---  (dl,dh=<x,y)  position  to  start  at) 

---  Ouput:  si=points  to  next  byte  after  string's  null 
- Preserves:  cx, dh, di, ds, es 


public  printCursorStringAttrib, printStringAttrib 
printCursorStringAttrib : 
push  cx 

mo  v  bh ,  D I  SPLAY_PAGE 

callsys  10h,3  ;  get  current  cursor  pos 

pop  cx 

printStringAttrib: 

push  cx  ;  save  cx  register 

mov  bh, DISPLAY  PAGE 
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-  loop: 

mov  al, (si]  ;  character  to  print 

inc  si 

cmp  al,0  ;  zero,  end  of  string 

je  short  _ end 

mov  bh ,  D I S  P  LA Y_P AGE 

mov  cx, 1 

callsys  10h,09h  ;  BIOS  print  single  character 

inc  dl 

mov  bh,DISPLAY_PAGE 

callsys  10h,2  ;  BIOS  set  cursor  pos 

jmp  _ loop 

_ end :  pop  cx 

ret 


-  Procedure:  printStringLimit  /  printCursorStringLimit 

- Input:  si*=segment  offset  to  null  terminated  string 

-  cl^length  of  string  to  print  (pad  with  *  '  if  shorter) 

-  (dl, dh= (x,y)  position  to  start  at) 

-  Ouput :  none 

-  Preserves:  dh,di,ds,es 


public  printCursorStringLimit, printStringLimit 
printCursorStringLimit : 
push  cx 

mov  bh,DISPLAY_PAGE 

callsys  lOh, 3  ;  get  cursor  pos 

pop  cx 

printStringLimit : 

mov  ch, 0 

push  cx  ;  save  cx  register 

mov  bp, sp  ;  to  base  ptr  register 

mov  bh,DISPLAY_PAGE 

callsys  10h,2  ;  already  in  dx  -  cursor  pos 

_ loop : 

mov  al,  [sij  ;  character  to  print 

cmp  al,0  ;  zero,  end  of  string 

jne  short  _ jmpl 

mov  al,'  ' 

jmp  short  _ jmp2 

_ jmpl :  inc  si 

_ jmp2:  mov  bh,DISPLAY_PAGE 

mov  cx, 1 

callsys  10h,0ah  ;  BIOS  print  single  character 

inc  dl 

mov  bh , Dl SPLAY_PAGE 

callsys  10h,2  ;  BIOS  set  cursor  pos 

dec  word  ptr  (bp] 

cmp  word  ptr  [bp],0 

jne  _ loop  ;  test  if  we  shoud  continue 


pop 

ret 


cx 
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;  ‘ - Procedure:  convertltoA  /  convertLtoA 

;  ---  Input:  (dx) : ax=unsigned  (long) word  to  convert 

; - Output:  da  :bx«*po  inter  to  an  asciiz  string 

;  ’ - Preserves:  si,bp,ds,es 

public  convertltoA, convert LtoA 
convertltoA: 

mov  dx,  0 

convertLtoA: 

push  ax 

push  dx 

;  get  the  number  of  characters  we  will  need  to  convert  this  number 
mov  bx,10 

mov  cx, 0 

loopl : 

div  bx 

mov  dx,  0 

inc  cx 

cmp  ax, 0 

jne  loopl 

;  convert  this  string  to  a  ASCII  string  (base (bx) =10) 
pop  dx 

pop  ax 

mov  di, offset  nconbuf 

add  di,cx 

mov  byte  ptr  [di],0  ;  null  terminate  string 

_ loop2 : 

div  bx 

add  dx,'0' 

dec  di  ;  pre-deincrement  mode  -(di) 

mov  [di],dl  ;  remainder  will  be  less  than  10 

mov  dx,  0 

cmp  ax, 0 

jne  loop2 

mov  Ex, offset  nconbuf  ;  return  value 

ret 


-  Procedure:  convertAtoI 

---  Input:  ds:ai»a8ciiz  string  to  convert  to  an  unsigned  int 
---  Output:  ax**unsigned  word 
-  Preserves:  di,si,ds,es 

Note:  ignores  and  characters 


public  convertAtoI 

convertAtoI : 

;  find  the  end  of  this  string 
mov  cx,0 

_ loopl : 

mov  dl, (si] 

inc  cx 

inc  si 

cmp  dl ,  0 

jne  _ loopl 

;  convert  this  string  into  a  number 

mov  bx, 1  ;  base  offset  value 
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aec  fli 

sub  ep,  2 

mov  bp, sp 

mov  word  ptr  [bp] , 0 

jcxz  _ exit 

loop2 : 

dec  si 

mov  ax,  0 

mov  al, I si] 

cmp  al,'0' 

jl  short  _ notNumberChar 

cmp  al,'9' 

jg  short  _ notNumberChar 

sub  al,'0' 

mul  bx 

add  [bp] , ax 

mov  ax, 10 

mul  bx 

mov  bx,ax 

notNumberChar : 

loop  _ loop2 

exit : 

pop  ax 

ret 


end 

;  end  of  file  'util. asm' 


no 


V  -  Program:  o2volt 

/  -  File:  hard. asm 

;  -  Author:  David  Dahle  (summer  apprentice) 

4  ---  Date:  July-August  1992 

;  -  Purpose:  routines  interfacing  us  with  the  A/D  converter 

;  -  Letterman  Army  Institute  of  Research 

;  -  Persidio  of  San  Francisco,  CA  94129-6800 

f 

dosseg 

locals 

include  Header. i 


.model  small 


.  data 

;  error  text 


A 

dw 

16  dup(0) 

;  2 -byte  integer  array  of  16  elements 

B 

db 

64  dup(0) 

;  4 -byte  readl  array 

of  16  elements 

C 

db 

10  dup(0) 

;  10  bytes  of  string 

space 

;  Change  these  numbers  if  more  channels  are  added  - 

SN  db  8  ;  number  of  analog  channels 

SM  db  16  ;  number  of  digital  I/O's 


avrhand  dw  0  ;  average  file  handle 

dathand  dw  0  ;  data  file  handle 

memhand  dw  0  ;  memory  where  data  in  read  into 

curs  am  dw  0  '  ;  number  of  the  current  sample 

numread  dw  0  ;  number  of  readings  taken 

strtime  dw  0,0  ;  starting  time 

endtime  dw  0,0  ;  ending  time 

;  messages 

nocrd  db  'FATAL  ERROR:  Driver,  ADRIVE.COM,  not  installed,' 

db  '  or  analog  card  not  installed. ', 0 

notsel  db  'FATAL  ERROR:  No  analog  card  selected.  BRD  SEL' 

db  '  switch  set  to  0 . ' , 0 

nocal  db  'FATAL  ERROR:  CALIB.DAT  file  not  correct  or  FIND . EXE' 

db  '  was  not  run . ' , 0 

nocnos  db  'FATAL  ERROR:  Calibration  numbers  are  not  correct. ',0 

mchan  db  'FATAL  ERROR:  Channel  count  incorrect.  Change  variables' 

db  '  SN  and  SM  in  hard. asm. ',0 

malloce  db  'ERROR:  Unable  to  allocate  read  buffer.',0 

avrfer  db  'ERROR:  Unable  to  open  specified  average  file' 

db  '  for  writing.',0 

datfer  db  'ERROR:  Unable  to  open  specified  data  file  for' 

db  '  writing. ' , 0 

awrter  db  'ERROR:  Uanble  to  write  to  destination  average  file.',0 

dwrter  db  'ERROR:  Unable  to  write  to  destination  data  file.',0 

bufover  db  'WARNING:  Data  Recieve  Buffer  overflow,  data  may  be  lost',0 

ttllow  db  'WARNING:  TTL  signal  already  active,  waiting  for  inactive.', 

colterm  db  'Data  Acquisition  Completed. ',  0 

strbuf  db  128  DUP  (0) 


global  resol : byte, nconbuf :byte, avrfl :byte, datf 1 :byte, range: word 
global  et ime : word, aut onum : word, autof n : word, curdate : word 


.  code 

;  labels  in  file  'main. asm' 

extrn  print_datf 1 : near , print_cmdLine : near, print_cmdLineBusy : near 

1 1 1 


;  labels  in  file  'util. asm' 

extrn  printTt SBackLine : near, printTextToScreen : near 
extrn  dosIOError : near, clearKeyBoardBuf fer : near 

;  labels  in  file  'fmath.c' 

extrn  _createInstantDisplayLine : near, _mkdf name :near 

extrn  _createStatusSt ring : near , _computeAverage : near 

extrn  _convertFtoA: near, _createTimeTakenString: near 
extrn  createAutomaticFileName :near,  insertAutoFileName:near 


-  Procedure:  setUpHardware 

-  Input :  none 

-  Output :  ax=0  if  no  error 

ax=l  if  error,  ds:dx  points  to  error  text 
-  Preserves: 


public  setUpHardware 

setUpHardware : 

mov  [C],'F'  /driver  conunands:  read  CALIB  file 

mov  [C+l],'n'  ;get  no.  of  channels 

mov  [C+2],0  ;end  with  null 

call  driver_CMD  ;call  driver 

mov  ax, word  ptr  [AJ  ;lst  integer  element  returned 

mov  bx,word  ptr  [A+4]  ; 3rd  integer  element  returned 

mov  cx,word  ptr  [A+12]  ; 7th  integer  element  returned 

cmp  ax ,  0 

jne  short  _ set2 

cmp  bx,  0 

jne  short  _ setl 

mov  dx, offset  nocrd  ; error 

jmp  short  _ serr 

_ setl:  mov  dx, offset  notsel  ; error 

jmp  short  _ serr 

set2 :  cmp  cx,  0 

jne  short  _ set 3 

mov  dx, offset  nocal  ; error 

jmp  short  _ serr 

_ set3:  cmp  ax,cx 

jle  short  _ set 4 

mov  dx, offset  nocnos  ; error 

jmp  short  _ serr 

_ set4:  cmp  ax, 16 

jg  short  _ set5  ; error 

cmp  bx, offset  SM 

jle  short  _ set 6 

_ set5:  mov  bx, offset  mchan  ; error 

jmp  short  _ serr 

_ set6:  mov  ax,0 

ret  /no  error  in  setup 

_ serr:  mov  ax, -1 

ret  /error  in  setup 


-  Procedure:  beginDataAcquisition 

-  Input : 

-  Output : 

-  Preserves:  nothing 


public  beginDataAcquisition 


112 


call  mitiaixzeharaware 

call  print_cmdLineBusy 

cmp  (autofn],2 

je  short  _ noAutoFileName 

mov  ax,  {autonum] 

push  ax 

lea  ax,curdate 

push  ax 

lea  ax, strbuf 

push  ax 

call  _createAutomaticFileNanie 
add  sp, 6 

lea  ax, strbuf 

push  ax 

lea  ax,avrfl 

push  ax 

call  _insertAutoFileName 

add  sp, 4 

call  print_avrfl 

lea  ax, strbuf 

push  ax 

lea  ax,datfl 

push  ax 

call  _insertAutoFileName 

add  sp, 4 

call  print_datfl 

noAutoFileName : 

mov  bx,  (DACQ_ENTRIES*4) /1€  ;  room  for  DACQENTRIES  num  of  readings 

callsys  21h,48h 

jnc  memoryAl  located 

lea  sT,malloce 

call  dosIOError 

jmp  _ exitDataAcq 

memoryAl 1 ocat ed : 


mov 

[memhand] , ax  ;  save  memory  segment 

pointer 

cmp 

[avrfl] ,0 

je 

short  _ noAvrFileNec 

lea 

dx, avrfl 

mov 

cx,  0 

callsys 

21h,3ch  ;  Create  new/Replace 

old  file 

jnc 

avrFileOpened 

lea 

sT,  avrfer 

call 

dosIOError 

jmp 

_ _ exitNoAvrFile 

avrFileOpened: 

mov  [avrhand],ax 

noAvrFi leNec : 

mov  [cursam],l  ;  init  current  sample  number 

dataAccL_MainLooP : 

cmp  {datfl],0 

je  short  _ noDatFileNec 

mov  ax, [cursam] 

push  ax 

lea  ax, [datfl]  1 13 

push  ax 


;  allocate  memory 
;  returns  SEGMENT  pointer 


add 

call 


sp,  <* 

print_datf 1 


; create  new  file 
Create  new/Replace  old  file 


lea  dx,datfl 

mov  cx, 0 

callsys  21h, 3ch 

jnc  short  _ datFileOpened 

lea  si,datfer 

call  dosIOError 

jmp  _ exitErrorDatFile 

datFileOpened: 

mov  [dathand] , ax 

noDatFileNec: 

mov  [C],'c' 

mov  [C+1},0 

call  driver_CMD 

mov  dx,0 

waitingForTTL: 

callsys  16h, 1  /  character  ready 

je  short  _ waitingNoCharacter 

lea  si,colterm 

call  print TextToScreen 

jmp  _ endDataAcquisition 

waitingNoCharacter : 


re-calibrate  card 

flag  to  make  sure  we  start  inactive 


mov 

mov 

call 

cmp 

je 

mov 

jmp 


[C+11,0 

driver_CMD 

[A] ,  °  .  „ 

short  signalActiveNow  . 

dXfl  —  •  ;  found  atleast  once  m  inactive  state 

waitingForTTL 


output  error 


signalActiveNow: 

cmp  dx, 1 

je  short  _ foundlnactive 

lea  si,ttllow 

call  printTextToScreen 
waitForlnactiveLoop: 

—  callsys  16h, 1  ;  character  ready 

short  _ waitNoChar 

si, colterm 
printTextToScreen 
endDataAcquisition 


je 

lea 

call 

jmp 

waitNoChar: 

mov 

mov 

call 

cmp 

je 

jmp 


[C+1],0 

driver_CMD 

[A] , °  T 

short  _ waitForlnactiveLoop 

short  noDatFileNec 


foundlnactive : 

callsys  21h,2ch 
mov  byte  ptr  [strtimej,ch 

mov  byte  ptr  [strtime+1] , cl 

mov  byte  ptr  {strtime+2] , dh 

mov  byte  ptr  [strtime+3] , dl 


get  current  time 


mov  ax, [memhand]  ;  set  registers  for  movsw 

mov  es,ax 

mov  di,0 

mov  [numread],0 

readValuesLoop : 


jb  snort  _ receivecuinuu  ujli 

lea  si,bufover 

call  printTextToScreen 

jmp  short  _ dataSetCompleted 

receiveBufNotFull : 


inc 

Inumread] 

mov 

[A],l 

mov 

ICJ,'h' 

mov 

[C+1],0 

call 

driver_CMD 

cld 

lea 

si,  B 

f 

where  value  is 

movsw 

movsw 

f 

move  float 

mov 

[C],'I' 

mov 

[C+1],0 

call 

driver  CMD 

cmp 

[A],0 

j© 

_ readValuesLoop 

f 

keep  reading  values 

dataSetCompleted : 

callsys 

21h, 2ch 

f 

get  time 

mov 

byte  ptr  [endtime],ch 

mov 

byte  ptr  [endtime+1] ,  cl 

mov 

byte  ptr  [endtime+2] , dh 

mov 

byte  ptr  [endtime+3] , dl 

mov 

ax, [numread] 

push 

ax 

$ 

number  read 

push 

es 

mov 

ax,  0 

• 

i 

far  pointer  to  buffer 

push 

ax 

lea 

ax, nconbuf 

push 

ax 

t 

buffer 

call 

computeAverage 

add 

sp,  8 

mov  ax, [numread] 

push  ax 

mov  ax, [cursam] 

push  ax 

lea  ax , nconbuf 

push  ax 

lea  ax,strbuf 

push  ax 

call  _createStatusString 

add  sp, 8 

lea  si,8trbuf 

call  printTextToScreen 

cmp  [etime],2 

je  short  _ noPrintTimeTaken 

mov  ax, [ numread]  . 

push  ax 

lea  ax, endtime 

push  ax 

lea  ax,strtime 

push  ax 

lea  ax,strbuf 

push  ax 

call  _createTimeTakenString 

add  sp,  8 

lea  si,8trbuf 

call  printTextToScreen 
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cmp  iavriij,u 

je  short  _ noAvrFileWrite 

lea  dx, nconbuf 

call  setStringForWrite 

mov  bx, [avrhand] 

callsys  21h,40h 

jnc  short  _ noAvrWriteError 

lea  si,awrter 

call  dosIOError 

jmp  _ endDataAcquisition 

noAvrWriteError : 


cmp 

je 

mov 

lea 

call 


ax,  cx 

short  _ noAvrWriteError2 

alf  -1 
si, awrter 
dosIOError 

endDataAcquisition 


noAvrWriteError 2 : 


noAvrFileWrite: 

cmp  [datfl],0 

je  short  n 

mov  cx,0 

mov  bx, 0 

datFileWriteLoop : 


noDatFileWrite 


push 

bx 

push 

cx 

mov 

ax, [memhand] 

mov 

es,  ax 

lea 

ax, nconbuf 

push 

ax 

lea 

di,B 

mov 

ax, es : [bx] 

mov 

[di] , ax 

mov 

ax,es: [bx+2] 

mov 

[di+2] , ax 

push 

di 

call 

_convertFtoA 

add 

sp,4 

lea 

dx, nconbuf 

call 

setStringForWrite 

mov 

bx, [dathand] 

callsys 

21h, 40h 

mov 

dx,  cx 

pop 

cx 

pop 

bx 

jnc 

short  _ noDatWrit 

lea 

si, dwrter 

call 

dosIOError 

jmp 

endDataAcquisit 

noDatWriteError : 


cmp  dx, ax 

je  short  _ noDatWriteError2 

mov  al,-l 

lea  si,dwrter 

call  dosIOError 

jmp  endDataAcquisition 

noDatWriteError? : 

add  bx, 4 

inc  cx 

cmp  (numread],cx 

jne  short  _ datFileWriteLoop 


cmp 

je 

mov 

lea 

call 

jmp 


noDatFileWrite: 


mov 

callsys 

jmp 


bx,  idathancij 
21h, 3 eh 

da t aAcq_Ma i nLo op 


close  data  file 


endDataAcquisition: 

[autofnj ,  2 

short  _ noAutoExpInc 

ax, [autonum] 
ax,  99 

short  _ numberNoCarry 

ax 

short  _ numberCarryContinue 

numberNoCarry: 

mov  ax, 1 

numberCarryContinue : 

mov  [autonum], ax 

call  print_autonum 


cmp 

je 

mov 

cmp 

je 

inc 

jmp 


noAutoExpInc : 

cmp  [datfl] ,  0 

je  short  exitErrorDatFrle 

mov  bx, [dathand] 

callsys  21h, 3eh  ;  close  file  handle 

lea  dx, datfl 

callsys  21h, 41h  ;  delete  file 


exitErrorDatFile : 

cmp  [avrfl] ,  0 

je  short  _ exitNoAvrFile 

mov  bx, [avrhand] 

callsys  21h,3eh 


exitNoAvrFile : 

mov  ax, [memhand] 

mov  es,ax 

callsys  21h,49h 


exitDataAcq: 

call  clearKeyBoardBuffer 

call  print_cmdLine 

ret 


-  Procedure:  setStringForWrite 

-  Input : 

-  Output: 

-  Preserves: 


setStringForWrite : 


mov 

mov 

strLengthLoop 

mov 

cmp 

je 

inc 

inc 

jmp 

endOf String: 
mov 
inc 
mov 
inc 


bx,  dx 
cx,  0 

al, [bx] 
al,  0 
short  _ 
cx 
bx 

short 


endOfString 


strLengthLoop 


byte  ptr  [bx] , 13 
cx 

byte  ptr  [bx+l],10 
cx 
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-  Procedure :  instant_Readings 

-  Input:  none 

-  Output :  none 

-  Preserves: 


public  instant_Readings 

instant_Readings : 

call  initializeHardware 

call  print_cmdLineBusy 

mov  [C],'c' 

mov  [C+1J,0 

call  driver_CMD 

_ loop: 

mov  [C] , 'I' 

mov  [C+1],0 

call  driver_CMD 

mov  ax,  [A] 

push  ax 

mov  [A] , 1 

mov  [C]  , '  h' 

mov  [C+1],0 

call  driver_CMD 

lea  ax,nconbuf 

push  ax 

lea  ax,B 

push  ax 

call  _createInstantDisplayLine 

add  sp, 6 

lea  si,nconbuf 

call  printTextToScreen 

callsys  16h,l  ;  check  if  character  is  ready 

jne  short  _ exitLoop 

call  printTtSBackLine 

jmp  short  _ loop 

_ exitLoop: 

call  clearKeyBoardBuffer 

call  print_cmdLine 

ret 


-  Procedure:  initializeHardware 

-  Input :  none 

-  Output :  none 

-  Preserves: 


PUBLIC  initializeHardware 
initializeHardware : 

mov  ax, 1  ;  use  one  analog  channel 

mov  word  ptr  [ A) , ax 

mov  [C],'N'  ;  set  number  of  analog  input  channels 

mov  [C+l  ] ,  0  118 


mov 

al, [resol] 

cmp 

al,  1 

jne 

short  _ notResoll 

mov 

ax, 18  ; 

low  noise  mode 

jmp 

short  _ endResol 

notResoll : 

cmp 

al,  2 

jne 

short  _ notResol2 

mov 

ax, 16  ; 

16 -bit  mode 

jmp 

short  _ endResol 

notResol2 : 

cmp 

al,  3 

jne 

short  _ notResol3 

mov 

ax, 15  ; 

15-bit  mode 

jmp 

short  _ endResol 

notResol3 : 

cmp 

al,  4 

jne 

short  _ notResol4 

mov 

ax, 14  ; 

14 -bit  mode 

jmp 

short  _ endResol 

notResol4 : 

cmp 

al,  5 

jne 

short  notResol5 

mov 

ax , 1 3  ; 

13 -bit  mode 

jmp 

short  endResol 

notResol5 : 

mov 

ax, 12  ; 

12-bit  mode 

endResol : 

mov 

[A] ,ax 

mov 

[C],'a' 

Set  resolution  of  all  analog  input 

mov 

[C+1],0 

call 

driver_CMD 

mov 

ax, [range] 

mov 

[A] ,ax 

mov 

(CJ , '  r' 

Set  range  of  analog  input 

mov 

[C+l],'c' 

mov 

(C+2 ] , 0 

call 

driver_CMD 

mov 

ax,  0  ; 

set  for  input  (0)  (l»output) 

mov 

[A] ,  ax 

mov 

[C],'S' 

set  Digital  I/O  to  input  or  output 

mov 

[C+1],0 

call 

driverCMD 

mov 

ax,0  ; 

set  channel  switch  delay  time  to  0 

mov 

[A] ,ax 

mov 

(C],'d' 

mov 

[C+1],0 

call 

driver_CMD 

ret 

-  Procedure:  driver_CMD 

---  Input:  Arrays  A,B,  and  C  initialized  with  command  and  parameters 

-  Output : 

-  Preserves:  all  general  purpose  registers 


dr iver_CMD : 

push 


mov 

ax,  offset 

A 

push 

ax 

push 

ds 

mov 

ax, offset 

B 

push 

ax 

push 

ds 

mov 

ax, offset 

C 

push 

ax 

mov 

bp,  sp 

call 

check 

cmp 

ax,  -1 

j* 

short  _ ndrv 

cld 

cli 

mov 

ax, 'CA' 

int 

60H 

nop 

sti 

ndrv :  add 

sp,  12 

pop 

bp 

ret 

/check  if  driver  is  there 


;  clear  direction  flag 

;put  mark  in  a  reg 

/call  trap  60h  to  do  the  command 

; just  for  leg  room 

/turn  interrrups  on 

/correct  stack  pointer 


;  check  to  make 
check:  push 

push 
mov 
mov 
mov 
cmp 
je 

mov 

mov 

cmp 

je 

mov 

mov 

cmp 

jne 

mov 

pop 

pop 

ret 

ndrv:  mov 
pop 
pop 
ret 


sure  the  driver  is  actutally  present 

si 

es 

ax,  0 
es,  ax 

ax, es : [060h*4] 
ax,  0 

short  _ ndrv 

si ,  ax 

ax,es: [060h*4+2] 
ax,  0 

short  _ ndrv 

es,  ax 
al, es : [si] 
al , 03dh 

short  _ ndrv 

ax,  0 

es 

si 

ax,  -1 

es 

si 


end 

/  end  of  file  'hard. asm' 
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*  -  Program:  o2volt 

*  -  File:  fmath.c 

a - Author:  David  Dahle  (slimmer  apprentice) 

a  -  Date:  July-August  1992 

a  -  Purpose:  floating  point  math  and  string  routines 

a  -  Letterman  Army  Institute  of  Research 

a  -  Persidio  of  San  Francisco,  CA  94129-6800 


A 

AA*A***** 


♦include  <stdlib.h> 
♦include  <stdio.h> 
♦include  <string.h> 
♦include  <dos.h> 


struct  dosdate_me  { 

unsigned  int  year; 
unsigned  char  day; 
unsigned  char  month; 


/* 

*  insert AutoFileName  -  inserts  the  date  string  into  the  given  file  name 

A 

*  file=name  string  to  insert  into 

*  date=date  string  to  insert 
*/ 

int  insertAutoFileName (char  *file,char  *date) 

{ 

char  ext [127],  c; 
signed  int  i; 

ext [0]=0; 

if  (file[0]==0)  goto  enda; 

for  (i«=strlen  (f ile) ;  (i);)  { 

c=file [ — i ] ; 
if  ( c== ' . ' )  { 

strcpy (ext, &file [i] ) ; 
file [i] =0; 

}  else  if  (c==' W )  { 

strcpy (&f ile [i+1 ] , date) ; 
goto  endf; 

) 

) 

strcpy (file, date) ; 
endf  :  strcat (file, ext) ; 
enda  :  return  0; 

) 


/*  . 

*  createAutomaticFileName  -  creates  a  string  for  the  automatic  file  name 

a  feature 

A 

*  buf*=destination  buffer  for  string 

*  date=pointer  to  date  structure 

*  experiemnt*snumber  of  the  current  experiment 

*/ 
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{ 


sprintf  (buf ,  "%02d%02d%02d%02d", 

<int)date->month, (int) date- >day, (int) (date->year-1900) , experiment) ; 


/* 

*  createTimeTakenString  -  compute  time  and  hertz  and  create  display  string 

*  strbuf=destination  buffer  for  output  string 

*  strtime=f irst  time  reading 

*  endtime=second  time  reading 

*  numread=number  of  readings  taken 
*/ 

void  createTimeTakenString  (char  *strbuf, struct  dostime_t  *strtime, 

struct  dostime_t  *endtime,int  numread) 

signed  char  s,h; 
unsigned  char  buf [20]; 
double  time; 
int  hertz; 

s= (signed  char) endtime->second-strtime->second; 
h= (signed  char) endtime->hsecond-strtime->hsecond; 
if  (h<0)  { 

h=h+100; 

s--; 

) 

sprintf (buf , "  %d. %02dE+000", (int)s, (int)h); 
time=atof (buf) ; 
if  ('.time) 

hertz=0; 

else 

hertz=(int)  ( (double) numread/time) ; 

sprintf (strbuf, "Time :  %d.%02d  seconds.  Hertz:  %d", 

(int)sf  (int) h, hertz) ; 


/* 

*  convertFtoA  -  converts  a  float  to  an  asciiz  string  for  printing 

*  variable=pointer  to  a  float 

*  buffer=destination  buffer  for  asciiz  string 
*/ 

void  convertFtoA  (float  *variable, char  *buffer) 

{ 

sprintf (buffer, "  %e” , *variable) ; 

} 


/* 

*  createStatusString  -  create  status  string  for  printing 

* 

*  buffer=destination  for  string 

*  average=pointer  to  a  string  for  the  average 

*  cursam=current  set  number 

*  numread=readingds  in  the  current  set 
*/ 

void  createStatusString  (char  *buf  fer,  clji^  *&verage,int  cursam,  int  numread) 


) 


numreaa,  cur  earn,  average/ ; 


/* 

*  computeAverage  -  computes  the  average  of  all  the  o2  voltages  read 

*  buf fer=destination  buffer  for  string 

*  values=far  pointer  (segment : of fset  passed)  to  the  buffer  of  floats 

*  numre ad® number  of  entries  in  the  values  buffer 
*/ 

void  computeAverage (char  ^buffer, float  far  * values, unsigned  int  numread) 

register  i; 
double  average, temp; 

for  (i=0;  i<numread;  i++)  ( 

temp® (double) values  [i] ;  /*  does  it  do  this  anyway???  */ 
aver age=average+ temp ; 

} 

temp® (double) numread; 
average®average/temp; 
sprintf  (buffer, "  %e",  average) ; 


/* 

*  createlnstantDisplayLine  -  create  string  for  instant  function 

* 

*  variable®pointer  to  the  float  that  was  just  read 

*  buf fer=destination  for  string 

*  digit=state  of  digital  input 
*/ 

void  createlnstantDisplayLine (float  *variable, char  *buffer,int  digit) 

char  digs [5]; 

if  (digit==l) 

strcpy (digs, "HIGH”) ; 

else 

strcpy (digs,  "LOW") ; 

sprintf  (buffer, "Voltage :  %e  Digital:  %s" ,  *variable, digs) ; 


/* 

*  mkdfname  -  adds  an  extension  to  the  oxygen  voltage  reading  file 

*  based  on  the  number  of  the  SET  that  we  are  on 

* 

*  name=name  of  the  file  (without  extension) 

*  cursam=SET  number  we  are  on 
*/ 

void  mkdfname (char  ‘name,  int  cursam) 

{ 

register  int  i; 
char  ext (4); 

sprintf (&ext {0] , "%03d", cursam) ; 

for  (i=0;  (1);  i++)  ( 

if  (name (i] ®=' . • )  ( 

strcpy  (&name(i+Il)^,&ext  (0] ) ; 


} 

> 

/*  end  of  file 


)  else  if  (uamelil— 0)  { 
name(i)“'  . ' ; 

strcpy  (&name[i4l] ,  &ext  [0] ) ; 
break; 


' fmath.c'  */ 
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Appendix  C 

Program  that  processes  spectral  data  from  the 
spectrophotometric  system. 
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♦include  <stdio.h> 

♦include  <stdlib.h> 

♦include  <math.h> 

♦include  <signal.h> 

♦include  <ctype.h> 

♦include  <dos.h> 

♦include  <string.h> 

♦include  <io.h> 

♦include  <fcntl.h> 

♦include  <sys\types .h> 

♦include  <sys\stat.h> 

♦define  MAX_LINE_BUF  256 

♦define  FILEBUF_SIZE  0x800 

♦define  FALSE  0 

♦define  TRUE  1 

int  exitflag=FALSE;  /*  flag  set  when  a  CTRL-C  is  hit  */ 

char  sourcefn [50] , destfn [50] ;  /*  source/dest  file  names  */ 

char  linebuf fer [FILEBUF_SIZE] ;  /*  output  buffer  for  writing  to  file  */ 

int  linebuf_size;  /*  number  of  chars  currently  in  buffer  */ 

/* 

*  Usage  -  printf  switch  options  to  the  screen 
*/ 

void  Usage (char  **argv) 

printf  ("\nUsage:  %s  [switches] \n", argv[0] ) ; 
printf (”  -b[number]  starting  wavelength\n" ) ; 
printf  ("  -d[filename]  destination  file  name\n")  ; 
printf ("  -e [number]  ending  wave length\n") ; 
printf  ("  -n[number]  samples  per  file\n"); 

printf  ("  -sffilename]  source  file  name\n"); 

printf ("  -w [ 1 1 2]  read  whole  number  wavelengths  or  all\n"); 

printf ("  l=read  only  whole  number  wavelngths\n" ) ; 

printf ("  2=read  all  wavelgnths\n") ; 

) 


/* 

*  chandler  -  Control-C  interrupt  handler,  sets  the  exitf lag=TRUE 
*/ 

int  chandler (void) 

signal (SIGINT,  SIG_IGN) ;  /*  disallow  Ctr-C  during  handler  */ 

exitf lag^TRUE; 

signal (SIGINT, chandler) ;  /*  reattach  handler  to  CTR-C  */ 

return  0; 

} 


/* 

*  readline  -  read  in  a  block  of  text  ending  with  a  linefeed  '\n'*=10 
*/ 

int  readline (int  source, char  *linebuf) 

{ 

register  int  x=0; 

do  (  if  (read (source, & linebuf [x] , 1) !=1)  { 

sprintf (linebuf , "Error  reading  ' %sr ", sourcefn) ; 
per ror (linebuf ) ; 
return  1/ 
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>  while  (linebuf [x++] *=' \n' ) ; 
linebuf [x] =0; 
return  0; 


/* 

*  writeline  -  write  file  data  to  disk 
*/ 

int  writeline (int  filehandle) 

{ 

if  ( (write (filehandle, linebuf fer, linebuf  size))«=-l)  { 

sprintf (linebuf fer, "\nError  writing  to  '  %s' ",destfn) ; 
perror (linebuf fer) ; 
return  1; 

) 

linebuf_size=0; 
return  0; 


/* 

*  saveline  -  writes  the  current  data  to  memory  for  a  future  disk  write 
*/ 

int  saveline (int  filehandle, char  *linebuf,int  length) 

{ 

register  int  x=0; 

if  (length+linebuf_^size  >  FILEBUF_SIZE)  { 

if  (writelTne (filehandle) )  return  1; 

1 inebu f_s i z  e= 0 ; 

} 

while  (x<length) 

linebuffer  f linebuf_size++) *=linebuf  [x++] ; 
return  0 ; 

} 

/* 

*  main  - 
*/ 

int  main (int  argc,char  **argv) 

{ 

char  linebuf [MAX_LINE_BUF] ;  /*  file  read  buffer  */ 

char  absorbance [25] ;  /*  buffer  for  reading  in  absorbance  */ 

int  source=NULL, dest=NULL;  /*  file  handles  */ 

int  startwvlen=0,  endwvlen=0;  /*  starting  end  ending  wavelengths  */ 

int  curwvlen, cwvlen_dec;  /*  current  wavelength  we  are  at  */ 

int  f stwvlen, fendwvlen;  /*  wavelengths  in  current  file  */ 

int  f8twvl_dec,  fendwvl_dec;  /*  decimal  of  wavelengths  in  file  */ 

int  cwvlen_val;  /*  value  of  offset  for  fseek  calc.  */ 

int  incwvlen=0;  /*  do  we  read  only  whole  no.  wl  */ 

int  samplecount=0;  /*  number  of  sets  in  this  file  */ 

struct  dostime_t  timel,  time2;  /*  variables  used  for  computing  time  */ 
int  m,s;  /*  more  variables  for  computing  time  */ 

register  int  x;  /*  general  purpose  indez  variable  */ 

sourcefn[0]=destfn[0]s=0;  /*  null  file  names  */ 

/*  set  CTR-C  handler  so  we  can  exit  properly  */ 
if  (signal (SIGINT, chandler) == (int (*)  ())-l)  ( 

print f ("ERROR:  Unable  to  set  CTR-C  handler”); 
goto  end; 

) 


/*  process  switches  */ 
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if  < ! <argv[x] [0]==' ) )  { 

printf ("ERROR:  Switch  error\n") ; 

Usage (argv) ; 
goto  end; 

>  else  { 

switch (tolower (argvfxj (1J ) )  { 
case  'b'  : 

startwvlen* (int) atoi (&argv[x) [2] ) ; 
break; 
case  'd'  : 

strcpy (destfn, &argv[x] [2]); 
break; 
case  ' e'  : 

endwvlen= (int) atoi (&argv(x] (2] ) ; 
break; 
case  'n'  : 

samplecount*  (int) atoi (&argv[x) [2] ) ; 
break; 
case  's'  : 

strcpy (sourcefn, &argv[x) [2J ) ; 
break; 
case  ' w'  : 

incwvlen* (int) atoi (&argv[x) [2] ) ; 
if  ( ! (incwvlen==l  ||  incwvlen==2) )  ( 

printf ("ERROR:  -w  switch:  Invalid  number  given\n") ; 
goto  end; 

} 

break; 
case  ' ? '  : 

Usage (argv) ; 
goto  end; 
default  : 

printf ("ERROR:  Unknown  Switch  '%c'\n",argv[x] [1)); 

Usage (argv) ; 
goto  end; 

) 

} 


/*  if  the  user  hasn't  already  given  the  parameters,  get  them  now  */ 
if  (exitflag)  {  printf ("\n  **  Aborted  **\n");  goto  end;  } 
if  ( (sourcefn [0] )  { 

printf ("Name  of  file  with  .ASC  data  file:  "); 
scanf ("%s", sourcefn) ; 

}  else  printf ("Name  of  file  with  .ASC  data  file:  %s\n" , sourcefn) ; 
if  (exitflag)  {  printf ("\n  **  Aborted  **\n");  goto  end;  } 
if  (!destfn(0J)  { 

printf ("Name  of  file  to  create:  "); 
scanf ("%s"f destfn) ; 

)  else  printf ("Name  of  file  to  create:  %s\n", destfn) ; 
if  (exitflag)  (  printf ("\n  **  Aborted  **\n");  goto  end;  ) 
if  ( ! samplecount )  { 

printf ("Number  of  samples  in  this  file:  "); 
scanf ("%d", Ssamplecount) ; 

}  else  printf ("Number  of  samples  in  this  file:  %d\n" ,  samplecount) ; 
if  (exitflag)  (  printf ("\n  **  Aborted  **\n");  goto  end;  ) 
if  ( ! startwvlen)  ( 

printf ("Starting  wavelength:  "); 
scanf ("%d", fistartwvlen) ; 

)  else  printf  ("Starting  wavelength:  %d\n", startwvlen) ; 
if  (exitflag)  (  printf ("\n  **  Aborted  **\n");  goto  end;  ) 
if  (Jendwvlen)  ( 

printf ("Ending  wavelength:  "); 
scanf ("%d", Sendwvlen) ; 

}  else  printf ("Ending  wavelengt^  %d\n", endwvlen) ; 


if  p.incwvlen)  { 

printf ("Read  only  whole  number  wavelengths  <y|n):  "); 

loop2:  if  (exitflag)  (  printf ("\n  **  Aborted  **\n") ;  goto  end;  } 

incwvlen* ( int ) get char ( ) ; 
if  (incwvlen==' y' ) 
incwvlen=l; 

else  if  (incwvlen«' n' ) 
incwvlen=2; 
else  goto  loop2; 

}  else  if  (incwvlen==l ) 

printf  ("Reading  only  whole  number  wavelengths .  \n") ; 
else  printf ("Reading  all  wavelengths . \n") ; 
if  (exitflag)  {  printf ("\n  **  Aborted  **\n");  goto  end;  ) 

if  (startwvlen>endwvlen)  { 

printf ("\nERROR:  Starting  wavelength  >  Ending  wavelength\n") ; 
goto  end; 

} 

source=open  (sourcefn,  0_BINARY  1 0_RD0NLY,  0)  ; 
if  (source==-l)  ( 

sprintf (linebuf, "Unable  to  open  '%s' :  ", sourcefn); 
perror (linebuf) ; 
goto  end; 

} 

dest=open  (destfn,  0_CREAT  |  0_TRUNC  |  0_BINARY  |  O_WR0NLY,  S_IWRITE)  ; 
if  (dest==-l)  { 

sprintf (linebuf , "Unable  to  open  '%s':  ", destfn); 
perror (linebuf ) ; 
goto  end; 

) 

/*  set  default  file  range  and  check  to  make  sure  tha  ranges  are  ok  */ 
f stwvlen=400;  f stwvl_dec®2 ;  fendwvlen*=800;  fendwvl_dec=0; 
if  (startwvlen<f stwvlen)  { 

printf ("\nERROR:  Starting  wavelength  to  small .",  f stwvlen) ; 
goto  end; 

) 

if  (endwvlen>fendwvlen)  { 

printf ("\nERR0R:  Ending  Wavelength  to  large fendwvlen) ; 
goto  end; 

> 

_dos_gettime (&timel) ; 
curwvlen=startwvlen; 
cwvlen_dec=0 ; 

for  (;;)  (  /*  forever  */ 

if  (exitflag)  (  printf ("\n  **  Aborted  **\n”);  goto  end;  ) 
lseek (source, 0L, SEEK_SET) ; 
for  (x=0;  x<4;  x++) 

if  (readline (source, linebuf ) )  goto  end; 

/*  move  file  position  to  next  line  we  want  to  read  */ 

if  (cwvlen_dec*s=0)  cwvlen__val*»0; 

else  if  (cwvlen_dec==33)  cwvlen_val=l; 

else  if  (cwvlen_dec==67 )  cwvlen_val=2; 

lseek (source,  (long)  ( ( ( (curwvlen-fstwvlen) * J) +cwvlen  val)*24) 

+  (fstwvl_dec*24T,  SEEK__CUR)  ; 
printf ("Wavelength:  %d. %02d\r", curwvlen, cwvlen_dec) ; 

/*  process  current  line  data  */ 
if  (readline (source, linebuf ) )  goto  end; 
sscanf (linebuf , "  %*d  %*c  %*d  %s”, absorbance) ; 

sprintf (linebuf, "  %d . %02d  %s" , curwvlen, cwvlen_dec,  absorbance) ; 
if  (saveline (dest, linebuf , strlen (linebuf) ) )  goto  end; 
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for  (x=l;  x< sample count;  x++)  t 

lseek (source/  (long)  ( ( (fendwvlen-curwvlen) *3)  -cwvlen_val) *24 

+  (fendwvl_dec*24)  /  SEEK_CUR) ; 
do  (  if  (readline  (source, linebuf) )  goto  end; 

)  while  (linebuf  [0]  !*='  S' ) ; 

lseek (source,  (long)  ( ( ( (curwvlen-f stwvlen) *3) +cwvlen_val) *24) 

+ (fstwvl_dec*24) , SEEK_CUR) ; 
if  (readline (source, linebuf ) )  goto  end; 
sscanf (linebuf , "  %*d  %*c  %*d  %s", absorbance) ; 
sprintf (linebuf, "  %s" , absorbance)  ; 

if  (saveline (dest, linebuf , strlen (linebuf )) )  goto  end; 

sprintf (linebuf, "\r\n") ; 
if  (saveline (dest, linebuf ,  2) )  goto  end; 
if  (curwvlen==endwvlen)  goto  complete; 
if  (incwvlen==2)  { 

if  (cwvlen_dec==0)  cwvlen_dec=33; 

else  if  (cwvlen_dec==33)  cwvlen_dec=67; 

else  if  (cwvlen_dec==67)  {  cwvlen_dec=0;  curwvlen++;  } 

}  else  curwvlen++; 

) 

complete : 

if  (writeline (dest) )  goto  end; 

dos_gettime (&time2) ; 
m=  (int)  time2  .minute-timel  .minute; 
s= (int) time2 . second-timel . second; 
if  (s<0)  {  s=s+60;  m — ;  ) 

printf  ("Elasped  Time  =  %02d:%02d\r\n”,m,  s)  ; 

end: 

if  (dest)  close (dest); 
if  (source)  close (source) ; 

return  0; 


/*  end  of  file  'matrix. c'  */ 
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Mechanisms  of  Hypertension  from 
Hemoglobin-based  Solutions 


ABSTRACT 


We  examined  the  effects  of  hemoglobin-based  solutions  as  blood 
substitutes  and  resuscitation  fluids.  Swine  were  subjected  to 
hemorrhagic  shock  and  then  resuscitated  with  cell-free  hemoglobin- 
based  resuscitation  fluids.  Isolated  rabbit  hearts  were  perfused  with 
hemoglobin-based  solutions  to  test  the  mechanisms  of  hypertension 
observed  in  resuscitated  swine.  Hemoglobin’s  affinity  for  nitric  oxide 
appears  to  be  the  primary  cause  of  hypertension. 
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Mechanisms  of  Hypertension  from 
Hemoglobin-based  Solutions 
VINCENT  K.  LEE 


The  idea  of  a  red  cell  substitute  has  been  around  for  more 
than  a  century  (1).  The  first  reports  of  using  hemoglobin  (Hb)  as  a 
blood  substitute  date  back  to  1868  (1).  Since  that  time,  scientists  and 
researchers  have  been  scrambling  to  find  a  safe  blood  substitute. 

The  need  for  blood  substitutes  has  intensified  in  recent  years 
(2).  Blood  substitutes  could  relieve  the  limited  supplies  of  blood 
available  for  emergency  blood  transfusion  during  a  major  disaster. 
Hemoglobin-based  solutions  used  as  blood  substitutes  would  eliminate 
the  problem  of  matching  blood  types  during  blood  transfusion.  Blood 
substitutes  are  being  tested  as  potential  resuscitation  fluids  to  revive 
traumatized  patients  in  situations  in  which  access  to  uncompromised 
whole  blood  supplies  are  limited  or  absent.  This  oxygen -supplying 
blood  substitute  could  save  lives  that  might  otherwise  be  lost. 

Many  successful  experiments  have  been  done  to  demonstrate 
the  efficacy  of  hemoglobin-based  solutions  as  possible  blood 
substitutes  (3,4).  However,  many  safety  issues  remain  to  be  resolved 
before  this  material  can  become  a  product.  Hemoglobin-based 
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solutions  have  been  associated  with  toxic  side  effects  after  being 
injected  into  patients  (5,6).  Vascular  reactivity,  leading  to 
constriction  of  blood  vessels,  is  of  primary  concern.  Systemic 
vasoconstriction  may  cause  hypertension  that  could  inflict  permanent 
and  severe  damage  to  the  body. 

The  purpose  of  the  isolated  perfused  heart  experiment  in 
rabbits  is  to  examine  the  mechanisms  whereby  different  types  of 
hemoglobin-based  solutions  induce  coronary  vasoconstriction.  Nitric 
oxide  (NO)  is  a  gas  and  a  normal  component  of  vascular  control 
mechanisms  that  dilates  blood  vessels.  However,  hemoglobin  has  a 
high  affinity  for  NO,  and  can  cause  vasoconstriction  by  interfering 
with  normal  NO-mediated  vasodilation  (7).  Hemoglobin 
administration  may  also  induce  production  of  harmful  oxygen-free 
radicals,  which  can  damage  tissues  by  attacking  cell  membrane  lipids. 

The  objective  of  the  hemorrhaged  pig  experiment  is  to 
determine  the  capabilities  and  hemodynamic  toxicities  of  various 
hemoglobin-based  solutions  as  resuscitation  fluids.  We  are  testing  to 
see  if  hypertension  exists  after  resuscitating  a  water-deprived  swine 
with  hemoglobin-based  solutions. 


1  3K 


Lee  -  3 


- This  report  will  provide  an  overview  of  the  testing  done  in  the 

Transfusion  Physiology  Lab  of  the  Blood  Research  Division  at 
Letterman  Army  Institute  of  Research  in  San  Francisco  to  define  the 
potential  systemic  and  cardiovascular  toxicity  of  hemoglobin-based 
blood  substitutes. 

MATERIALS  AND  METHODS 

Stroma-free  hemoglobin  and  ococHb,  formulated  in  Ringer’s 
acetate,  were  prepared  in  a  sterile  hemoglobin  production  facility 
according  to  previously  described  methods  (8). 

Sterile  bottles  of  human  serum  albumin  in  Ringer’s  acetate, 
prepared  from  commercial  salt-poor  albumin,  concentrated  salts,  and 
water  for  injection,  were  used  as  control  solutions. 

Ringer’s  lactate  was  purchased  from  approved  medical  supply 
houses. 
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A.  Isolated  Perfused  Rabbit  Heart 

Eight  male  New  Zealand  white  rabbits,  weighing  2.4  to  3.0  kg, 
were  acquired  from  a  commercial  breeder.  Animals  were 
anesthetized  with  3-1/2  cc  of  ketamine/Rompin/acepromazine.  The 
thorax  was  opened,  the  heart  removed  immediately,  and  attached  to 
an  aortic  cannula  as  previously  described  (9).  The  apparatus  is 
shown  in  Figure  1.  The  heart  was  perfused  with  a  modified  Krebs- 
Henseleit  bicarbonate  (KH)  buffer  with  a  pH  of  7.41.  The  buffer,  at 
37°C,  was  pumped  through  a  filter.  Acetylcholine  and  hemoglobin- 
based  solutions  were  infused  through  a  valve  immediately  after  the 
filter,  mixing  into  the  buffer.  The  buffer  then  continued  into  an 
oxygenator  consisting  of  a  closed  cylinder  in  which  25  feet  of  Silastic 
tubing  (0.058  inch  ID  X  0.077  inch  OD)  was  wrapped  around  a  . 
temperature-controlled  central  core.  Gas  mixtures  (5%  C02  plus  95% 
02)  were  introduced  into  the  outer  chamber  around  the  Silastic  tubing 
to  equilibrate  with  the  buffer,  which  then  flowed  to  the  heart. 

A  ventricular  drain  was  created  at  the  apex  of  the  left  ventricle  to 
minimize  ventricular  filling  by  way  of  the  Thebesian  circulation.  A 
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saline-filled  latex  balloon  was  inserted  ^nd-secured  into  the  left 
ventricle  by  an  incision  in  the  left  atrium.  The  balloon  pressure  was 
monitored  by  a  pressure  transducer  (P23XL,  Gould,  Cleveland,  OH) 
and  recorded  on  a  strip-chart  recorder  (2400S,  Gould,  Cleveland,  OH). 
The  coronary  venous  outflow  was  monitored  via  a  pulmonary  artery 
cannula.  A  reservoir  of  37°C  KH  buffer  was  raised  under  the  heart 
until  the  ventricles  were  fully  immersed. 

Acetylcholine  dose-response  curves  were  generated  by 
monitoring  aortic  pressure  and  titrating  the  drug  in  doses  of:  ,2pM, 
.5pM,  lpM,  2pM,  4pM,  6jiM,  8pM,  and  lOpM.  The  stability  of  the 
aortic  pressure  determined  when  the  next  dose  of  acetylcholine  was 
administered.  A  set  of  baseline  acetylcholine  concentration  versus 
aortic  pressure  measurements  was  established.  After  a  brief  period  of 
5  to  10  minutes  of  circulating  pure  buffer,  the  hemoglobin-based 
solution  was  introduced.  Another  acetylcholine  titration  curve  was 
determined  in  the  presence  of  the  hemoglobin-based  solution.  After 
another  period  of  circulating  pure  buffer  through  the  system,  a 
recovery  dose-response  curve  for  acetylcholine  was  determined. 
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At  the  end  of  the  experiment,  the  atria  and  4he  right  ventricle 
were  trimmed.  The  left  ventricle  was  opened  and  lightly  blotted.  A 
wet  weight  was  immediately  taken  and  a  dry  weight  was  taken  after 
drying  overnight  at  110°C. 

The  left  ventricular  developed  pressure  (LVDP),  derivative  of 
LVDP,  coronary  inflow  P02,  and  coronary  outflow  P02  were 
monitored  and  recorded  on  a  strip  chart  recorder.  Oxygen 
consumption  was  determined  by  measuring  the  difference  between 
the  content  of  perfusate  (buffer)  entering  and  exiting  the  coronary 
circulation,  using  in-line  Clarke-type  oxygen  electrodes  (Instech, 
Horsham,  PA).  All  the  collected  data  were  entered  into  a  computer 
spreadsheet  (RSI,  BBN  Software  Products  Corp.,  Cambridge,  MA)  (9). 

B.  Hemorrhaged  Pigs 

Six  8-  to  12-  week  old  female  swine  weighing  13  to  18  kg,  were 
acquired  from  a  commercial  breeder.  Animals  were  surgically 
prepared  by  methods  previously  described  (8).  The  animal 
preparation  is  shown  in  Figure  2.  Each  animal  was  fasted  overnight. 
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It  was  given  anesthesia  with  a  mixture  of  isoflurane,  nitrous  oxide, 
and  oxygen.  A  carotid  artery  catheter  (1  mm  ID)  was  placed  in  one 
carotid  artery  through  a  midline  neck  incision.  A  central  venous 
catheter  (1  mm  ID)  was  inserted  into  one  internal  jugular  vein,  and  a 
Swan-Ganz  catheter(Pentacath,  Viggo-Spectramed,  Oxnard,  CA)  was 
inserted  through  the  other  internal  jugular  vein  into  the  pulmonary 
artery.  The  incision  was  closed  after  the  catheters  were  brought 
through  the  skin  on  the  dorsal  surface  of  the  neck.  A  midline 
laparotomy  was  performed,  following  the  same  procedure,  to  remove 
the  spleen  (8,10). 

Finally,  an  aortic  catheter  (2  mm  ID)  was  introduced,  and  a  left 
renal  artery  flow  probe  (6R,  Transonic  Systems,  Inc.,  Ithaca,  NY)  was 
attached  through  a  left  retroperitoneal  incision  and  brought  through 
the  skin  on  the  dorsal  midline.  Velcro  pouches  were  sewn  to  the  skin 
to  hold  the  external  ends  of  the  catheters.  The  catheters  were 
flushed  with  heparinized  saline  and  capped.  Anesthesia  was 
discontinued,  and  the  animal  was  moved  to  a  transfer  cage,  where  it 
was  observed  until  it  awoke  and  then  it  was  returned  to  the  animal 
care  facility  (8,10). 
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Two  days  before  the  hemorrhage,  the  swine  was  transferred  to 
a  metabolic  cage.  The  swine  was  water-deprived  for  two  days,  and 
fasted  for  12  hours  before  the  hemorrhage.  The  animal  was  weighed 
daily.  Blood  samples  were  drawn  daily  for  blood  chemistries  and 
urine  samples  were  collected  for  volume  and  creatinine  concentration. 

The  swine  was  moved  to  a  laboratory  in  its  metabolic  cage  on 
the  day  of  hemorrhage.  The  catheters  and  the  flow  probe  were 
connected  to  pressure  transducers  and  recording  machines.  Two  sets 
of  baseline  blood  samples  were  taken  15  min  apart  after  the  readings 
of  the  aortic,  pulmonary  artery,  and  central  venous  pressures 
stabilized.  When  hemorrhage  began,  aortic  blood  (25  ml/kg)  was 
withdrawn  by  a  syringe  pump  (Model  22,  Harvard  Apparatus,  South 
Natick,  MA)  over  the  next  hour  at  15  min  intervals.  Blood  samples 
were  taken  at  each  of  these  15  min  intervals.  All  blood  samples  were 
taken  for  blood  chemistries  and  the  pH,  PC02,  and  P02,  using  the 
blood  gas  analyzer  (Model  170  pH/Blood  Gas  Analyzer,  Coming, 
Medfield,  MA).  Withdrawn  blood  was  stored  in  CPDA-1  at  room 
temperature  for  later  reinfusion. 
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One  hour  after  hemorrhage  began,  the  swine  was  given  the 
resuscitation  fluid  through  the  central  venous  catheter.  Blood 
samples  were  taken  at  five  more  time  points  following  the 
resuscitation.  Fifteen  minutes  after  the  last  blood  sample,  the  swine 
was  transfused  with  its  own  filtered  blood,  which  had  previously  been 
withdrawn.  A  final  set  of  blood  samples  were  obtained.  The 
catheters  were  finally  flushed  with  heparin  and  placed  back  into  the 
dorsal  pouches,  along  with  the  flow  probe  wires.  The  swine  was  given 
free  access  to  food  and  water. 

Pressure  transducers  (P23XL,  Gould,  Cleveland, OH),  connected 
to  the  catheters,  measured  the  aortic,  central  venous,  and  pulmonary 
artery  pressures.  Outputs  were  recorded  on  a  strip-chart  recorder 
(3800S,  Gould,  Cleveland,  OH).  Cardiac  output  was  measured  in 
triplicate  by  thermodilution  with  the  Swan-Ganz  catheter  and  a 
cardiac  output  computer  (COM-1,  American  Edwards  Laboratoiy, 
Irving,  CA).  The  ultrasonic  flow  probe,  connected  to  the  flow  meter 
(Model  201,  Transonic  Systems,  Inc.,  Ithaca,  NY),  measured  the  left 
renal  artery  flow.  The  filtered  urine,  collected  from  the  bottom  of  the 
metabolic  cage  was  measured  for  volume  in  a  graduated  cylinder.  All 
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data  were  then  entered  into  a  computer  spreadsheet  (RSI,  BBN 
Software  Products  Corp.,  Cambridge,  MA). 

The  next  day,  the  swine  was  taken  to  the  necropsy  room.  It 
was  anesthetized  with  sodium  pentobarbital  and  urine  specimens 
were  collected  from  the  dissected  right  ureter.  Euthanasia  was 
performed  with  an  overdose  of  sodium  pentobarbital.  Body  tissues 
and  cavities  were  examined  and  abnormalities  were  recorded. 
Sections  of  various  organs,  including  the  eye,  heart,  lung,  liver, 
kidney,  and  cerebrum,  were  removed  and  stored  in  10%  neutral 
buffered  formalin  and  tissues  were  taken  and  prepared  for  light 
microscopic  examination.  All  abnormalities  were  recorded,  and  then 
all  tissues  were  graded  for  all  lesions  (8,10). 

RESULTS 

A.  Isolated  Perfused  Rabbit  Heart 

It  has  been  shown  that  aortic  pressure  increases  as 
acetylcholine  is  administered  to  hearts  in  progressively  increasing 
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concentrations  (Fig.  3).  When  hearts  are  treated  with  aaHb, 
sensitivity  to  acetylcholine  increases,  indicated  by  a  shift  to  the  left  of 
the  dose-response  curve.  This  increased  sensitivity  does  not  return 
completely  to  normal  after  aaHb  is  removed  unless  deferoxamine  is 
also  present  as  shown  in  Figure  4. 

Four  hearts  treated  with  cyan-met  Hb  (CNmetHb)  showed  a 
slight  shift  toward  the  left  in  the  dose-response  curve  (Fig.  5). 
However,  when  CNmetHb  was  removed  the  recovery  curve  indicated 
even  higher  sensitivity  to  the  drug  than  the  other  two  curves. 

Two  hearts  with  the  CNmetHb  and  deferoxamine  had  entirely 
different  results  (Fig.  6).  The  control,  experimental,  and  recovery 
values  were  so  close  that  no  differences  were  observed. 

One  heart  was  administered  nitroglycerin,  a  nitrovasodilator 
drug  (Fig.  7).  Sensitivity  to  acetylcholine  appeared  to  be  unaffected 
by  this  treatment. 

Another  heart  received  aaHb  with  2-Mercaptopropionyl 
glycerin,  another  scavenger  of  oxygen-free  radicals  that,  unlike 
deferoxamine,  does  not  bind  free  iron.  This  compound  did  not  affect 
the  increased  sensitivity  to  acetylcholine  due  to  aaHb  (Fig.  8). 
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Abstract 


Fresh  human  blood  was  collected  in  CPDA-1,  the  red  blood  cells  (RBCs) 
were  frozen  by  the  Valeri  high  glycerol  technique  and  stored  at  -80°C.  Later,  the 
RBCs  were  thawed,  washed,  and  an  additive  solution  developed  at  the  Letterman 
Army  Institute  of  Research  (LAIR)  was  added.  The  RBCs  were  stored  at  4°C  for 
14  or  21  days  and  assayed  for  ATP,  2,3-DPG,  glucose,  pH,  P50,  lysis,  crenation, 
sodium,  potassium,  and  osmolarity.  The  RBCs  were  tagged  with  radioactive 
chromium,  and  infused  into  the  original  blood  donors.  Further  assaying  in  a 
gamma  counter  determined  the  percentage  of  RBCs  retained  by  the  donor*  24 
hours  later.  Research  to  date  looks  promising,  but  further  studies  are  needed  to 
determine  if  this  additive  solution  can  be  used  for  extending  the  shelf  life  of 
thawed  RBCs  to  21  days. 


Development  of  New  Methods  for  Post-Thaw 
Red  Blood  Cell  Preservation 
Rende  M.  Ward 

The  freezing  of  red  blood  cells  (RBCs)  could  be  an  ideal  way  for  blood 
banks  to  store  rare  blood  types  and  stock  blood  for  use  in  treating  casualties  of 
w  ar  or  local  emergencies,  such  as  an  airplane  crash.  However,  cryopreservation 
of  RBCs  is  currently  impractical  for  w  ide-scale  use  because  of  the  expense  of 
freezing  blood,  which  is  four  times  that  of  storing  fresh  blood,  and  the  limited  24- 
hour  shelf  life  after  thawing  (1).  The  goal  of  our  research  is  to  make 
„  "yoprcservation  more  practical  by  extending  the  24-hour  post-thaw  life  of  the 
RBCs  to  14.  and  perhaps  even  21,  days. 

One  of  the  current  problems  with  frozen  red  blood  cells  is  transportation. 
With  only  24  hours  of  post  thaw  shelf  life.  RBCs  must  currently  be  kept  at  -80°C 
while  being  transported  (2)  This  requires  special  generators  in  addition  to  extra 
time  and  money  Two  weeks  of  RBC  viability  after  thawnng  would  not  only  give 
bicod  banks  enough  time  for  transportation,  but  would  vastly  increase  the  now 
limited  shelf  life  This  improved  accessibility  and  extended  viability  could  save 
the  lives  of  people  with  rare  blood  types  In  addition,  these  improvements  would 
benefit  the  military,  which  has  several  frozen  blood  banks  around  the  world 
intended  for  use  during  the  initial  stages  of  an  armed  conflict  (3).  Presently,  these 
blood  reserves  have  limited  practicality  because  the  thawed  RBCs  must  reach  the 
Lx.ployabie  Medical  System  at  the  site  of  combat  and  be  infused  within  24  hours. 


Our  research,  however,  hopes  to  improve  the  effectiveness  of  these  blood  banks 
by  providing  14  to  21  days  of  post-thaw  shelf  life. 

Another  benefit  of  our  research  is  that  it  has  the  capability  of  making  the 
nation’s  blood  supplies  safer  (2).  Currently  in  the  United  States,  the  annual 
number  of  clinical  cases  of  post-transfusion  infection  with  the  human 
immunodeficiency  virus  (HIV)  is  estimated  at  70,  while  the  estimated  risk  of 
contracting  HIV  from  one  unit  of  transfused  blood  is  0.0007%  (4).  However, 
some  diseases,  such  as  HIV,  cytomegalovirus,  and  human  T-lymphotropic 
retrovirus,  are  screened  by  identifying  antibodies  to  these  viruses.  Several  months 
can  pass  after  the  initial  exposure  before  an  antibody  response  is  evident,  and  thus 
infected  blood  with  undetected  antibodies  passes  screening  each  year  (4). 
Because  most  donors  give  blood  repeatedly,  their  RBCs  could  be  frozen  until  the 
next  occasion  they  gave  blood,  at  which  time  it  would  be  screened.  If  any 
diseases  with  long  incubation  periods,  such  as  HIV,  appeared,  the  frozen  blood 
would  be  disposed  of,  with  the  possibility  that  it,  too,  was  contaminated. 

The  potential  for  frozen  RBCs  has  been  overlooked  due  to  its  expense  and 
limited  post-thaw  shelf  life.  However,  the  cost  is  steadily  decreasing  as  new  and 
better  freezing  techniques  are  developed  (2);  and,  with  an  extended  shelf  life,  the 
motivation  to  find  cheaper  methods  for  freezing  RBCs  will  be  even  greater.  This 
study  hopes  to  shed  light  on  the  benefits  of  cryopreservation  of  RBCs,  allowing 
for  its  use  in  practicality  and  efficacy. 
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Materials  and  Methods 

Freezing 

To  obtain  the  frozen  RBCs  needed  for  our  research,  whole  blood  was 
collected  in  oversized  800  mL  bags  containing  63  mL  of  CPDA-1  (manufactured 
by  Baxter  Healthcare  Corporation,  Deerfield,  IL).  One  sample  was  taken  from  the 
bag  at  this  time  for  use  in  a  P50  assay. 

The  whole  blood  was  then  centrifuged,  in  a  Beckman  J6-HC  (Fullerton, 
CA),  for  10  min  at  3532  x  g  (5)  at  room  temperature  to  separate  the  plasma  from 
the  RBCs.  The  plasma  was  then  squeezed  into  a  connecting  bag  with  a  plasma 
press,  clamped  off  and  saved  for  use  in  micro-Drabkins,  sodium,  potassium,  and 
osmolarity  assays.  A  sample  of  the  red  blood  cells  was  used  for  hematocrit, 
morphology’,  hemoglobin,  blood  pH,  P50,  and  fluorometric  assays  (See  assay 
section  of  materials  and  methods  for  procedures.) 

To  prepare  the  packed  RBCs  for  freezing,  we  added  a  total  of  400  mL  of 
Fenwal  Glycerolyte  57  solution  (Deerfield,  IL).  The  top  of  each  glycerol  bottle 
was  first  swabbed  with  rubbing  alcohol  and  then  punctured  with  a  plasma  transfer 
set  tube  (Fenwal  #4C2243;  Deerfield,  IL)  and  a  vent  tube  (Becton  Dickinson 
#5200  1 9G  1^/2  TW;  Rutherford,  NJ).  The  RBC  bag  was  placed  on  an  Eberbach 
shaker  machine  (Ann  Arbor,  MI)  and  the  bottle  of  glycerol  inverted.  As  the 
RBCs  were  gently  being  shaken,  50  mL  of  glycerol  were  added.  After  a  5  min 
rest  with  the  shaker  turned  off,  an  additional  50  mL  of  glycerol  were  added 
(shaker  on).  After  2  min  of  rest  (shaker  off),  the  remaining  glycerol  was  added 
(while  being  mixed  by  hand).  Special  care  was  taken  to  shut  off  the  flow  of 
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glycerol  immediately  before  the  last  few  drops  were  added.  This  last  step 
prevents  air  from  getting  into  the  bag. 

Next,  we  centrifuged  the  glycerolized  RBCs  at  1250  xg  (5)  for  TO  min  at 
room  temperature.  Once  again,  we  used  a  plasma  press  to  squeeze  off  the 
supernatant,  excess  glycerol,  into  a  connected  bag,  clamped  off  the  bag,  and 
discarded  it.  The  RBCs  were  then  placed  in  a  sealed  freezer  bag  and  cardboard 
box  and  frozen  at  -80°C. 

Thawing  and  Washing 

Each  bag  of  frozen  RBCs  was  placed  in  a  Precision  Coliform  Incubator 
Bath  (Fisher  Scientific;  Santa  Clara,  CA),  and  heated  to  a  temperature  between 
37°C  and  42°C.  The  bag  remained  in  the  wash  bath  until  the  blood  thawed  and 
reached  37°C;  this  takes  approximately  35  min. 

A  2000  mL  bag  of  0.2%  dextrose  and  0.9%  sodium  chloride  processing 
solution  (Fenwal;  Deerfield,  IL),  a  150  mL  bag  of  12%  sodium  chloride 
processing  solution  (Fenwal;  Deerfield,  IL),  a  5  L  waste  bag  (Haemonetics; 
Braintree,  MA),  and  a  600  mL  transfer  pack  (Fenwal;  Deerfield,  IL)  were  then 
attached  to  a  wash  set  for  the  Haemonetics  Blood  Processor  115  (Braintree,  MA). 
The  RBCs,  saline  (12%  sodium  chloride)  and  wash  solution  (0.2%  dextrose  and 
0.9%  sodium  chloride)  should  be  positioned  according  to  the  method  of  Valeri 
(5).  The  RBCs  were  then  mixed  on  the  platform  of  the  Haemonetics  Blood 
Processor  1 15  while  50  mL  of  the  12%  saline  were  added.  Two  minutes  of  rest 
followed  with  the  mixer  off.  (If  at  this  time  any  pooling,  dark  spots,  occurs  in  the 
RBCs,  the  cells  must  be  mixed  by  hand.)  With  the  mixer  on,  100  mL  of  wash 
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solution  were  added,  2  min  rest  (mixer  off),  150  mL  wash  solution  added  (mixer 
on),  and  2  min  rest  (mixer  off).  The  centrifuge  in  the  cell  washer  was  then  turned 
on  and  the  dilute  RBCs  added.  The  flow  rate  of  the  blood  into  the  bowl  should  be 
approxima;ely  75  mL  per  minute,  and  the  bowl  should  not  fill  in  less  than  5  min. 
When  effluent  appeared  in  the  waste  line,  the  rest  of  the  wash  solution  was  added. 
If  the  waste  solution  appears  murky  in  the  tubing,  the  RBC  bag  should  be  lowered 
to  prevent  the  RBCs  from  spilling  over  into  the  waste  bag.  After  1000-1200  mL 
of  w'ash  solution  have  been  added,  the  effluent  is  normally  clear,  registering  less 
than  150  mg  %  free  hemoglobin.  This  can  be  evaluated  with  a  Free  Hemoglobin 
Visual  Comparator  (Haemonetics  Corporation;  Braintree,  MA).  If  more  free 
hemoglobin  is  present,  the  RBCs  need  further  washing  with  wash  solution.  Once 
all  of  the  wash  solution  was  added,  the  centrifuge  was  stopped  and  the  RBCs  were 
forced  out  of  the  bowl  and  siphoned  into  the  600  mL  transfer  pack  (Fenwal; 
Deerfield,  IL).  The  tubing  between  the  bowl  and  transfer  pack  was  clamped  off. 

The  washed  RBCs  were  centrifuged  at  1500  x  g,  room  temperature  for  10 
min  to  remove  excess  wash  solution.  The  supernatant  was  squeezed  off  with  a 
plasma  press  and  discarded.  One  hundred  milliliters  of  an  additive  solution 
developed  at  LAIR  was  then  added  to  the  RBCs  and  mixed  by  hand.  A  sample 
was  taken  for  assaying  and  the  remaining  RBCs  were  stored  at  4°C. 
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Assays 

The  following  assays  were  conducted  on  the  same  day  (day  zero)  that  the 
RBCs  were  thawed  and  washed. 

Osmolaritv  Assay  (Appendix  I) 

We  assayed  0.3  mL  of  plasma  from  each  sample  in  triplicate  on  an 
Osmometer  Model  3DII  (Advanced  Instruments  Inc.,  Needham  Heights,  MA.) 
(6). 

P50  Assay  (Appendix  II) 

In  a  cuvette,  we  prepared  a  buffer  solution  of  5  mL  Hemox  solution  and  20 
jiL  of  anti-foam.  We  covered  the  cuvette  with  parafilm  and  then  warmed  it  in  a 
heating  block  to  38°C.  Once  the  buffer  reached  its  desired  temperature,  we 
poured  it  into  the  sample  chamber  of  a  Model  B  Hemox-Analyzer  manufactured 
by  TCS  Medical  Products  Company  (Huntingdon  Valley,  PA).  We  added  50  pL 
of  sample  to  the  buffer  solution.  The  rest  of  the  P50  assay  was  done  according  to 
the  Operation  Manual  for  the  Hemox-Analyzer  (7). 

Hematocrit  (Appendix  HI) 

Two  heparinized  hematocrit  tubes  were  filled  with  sample  by  capillary 
action.  They  were  centrifuged  in  a  micro  hematocrit  IEC  MB  centrifuge 
(Needham  Heights,  MA)  for  5  min,  and  then  read  with  an  IEC  International 
Micro-Capillary  Reader  (Needham  Heights,  MA). 
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Morphology  (Appendix  IV) 

We  fixed  a  sample  of  RBCs  with  a  solution  containing  2%  glutaraldehyde, 
0.1  mol/L  Na-cacodylate  HC1  (pH  7.2),  and  0.1  mol/L  sucrose  (8).  A  1:2  dilution 
of  sample  to  fixative  was  made.  The  sample  can  now  be  stored  at  4°C  until  the 
cells  are  viewed  or  counted  under  the  microscope. 

To  do  the  morphology,  we  made  a  1:120  dilution  of  sample  to  diluent 
(8.5g  sodium  chloride  and  0.  Ig  sodium  azide  per  liter  of  distilled  water)  for  easier 
cell  counting.  This  dilution  is  based  on  a  hematocrit  of  40,  higher  hematocrits 
need  a  greater  dilution  factor,  lower  hematocrits  require  less  dilution.  Twenty 
microliters  of  the  dilute  fixed  cells  were  then  placed  in  a  hemocytometer  and 
viewed  through  a  Universal  Zeiss  Microscope  (Germany)  with  a  blue  filter  and  a 
40-power  objective.  Three  slide  pictures  of  each  sample  were  taken  with  an 
attached  Nikon  2000  camera  (Tokyo,  Japan).  Each  slide  was  of  a  different  set  of 
sixteen  squares  on  the  hemocytometer. 

Later,  the  slides  were  viewed  and  the  RBCs  counted  and  categorized 
according  to  the  level  of  degradation  of  the  RBCs  (Fig.  1)  (9).  Each  category  was 
then  placed  in  the  following  equation  to  rate  the  RBCs  (8): 

(A  1 100/E)  +  (B  800/E)  +  (C  400/E)  +  (D  100/E) 

— 


Micro-Drabkins  Assay  (Appendix  V) 

An  aliquot  of  sample  was  centrifuged,  and  the  supernatant  removed.  We 
determined  the  amount  of  hemoglobin  in  the  supernatant  with  a  Cobas  Fara 
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(Roche  Diagnostic  Systems;  Montclair,  NJ).  The  temperature  was  set  at  25°C, 
wavelength  at  540  nm,  and  200  pL  of  Drabkins  solution  were  used  as  a  reagent. 
Seven  readings  werelaken,  one  every  60secohds~(I0)7 

Sodium  and  Potassium  Assay  (Appendix  VI) 

Small  aliquots  of  sample  were  centrifuged  and  the  supernatant  was  drawn 
off.  The  supernatant  was  then  analyzed  in  a  Coming  480  Flame  Photometer 
(Medfield,  MA)  with  Coming  Lithium  Internal  Standard  3000  (Medfield,  MA). 
We  used  the  method  described  in  the  instruction  manual  (11). 

Hemoglobin  Assay  (Appendix  VO) 

Prepared  in  triplicate,  20  pL  of  sample  were  added  to  5  mL  of  Drabkins 
reagent  and  gently  mixed.  A  Beckman  Spectrophotometer  DU-62  at  540  nm 
(Fullerton,  CA)  was  zeroed  with  a  blank  containing  Drabkins  reagent.  A  standard 
of  cyanmethemoglobin  at  known  concentration  was  prepared  in  a  corresponding 
cuvette.  Both  the  standard  and  sample  were  read  in  the  spectrophotometer. 
(Readings  for  the  sample  and  standard  should  be  with  in  0.005  of  each  other,  if 
not,  repeat  assay  )  (12). 

Blood  pH  (Appendix  VH[) 

In  a  Coming  170  pH/Blood  Gas  Analyzer  (Medfieid,  MA),  the 
temperature  was  set  at  37°C,  the  gas  cylinder  pressure  at  300  psi,  the  regulator 
pressure  to  3.5-4.5  psi,  and  the  barometric  pressure  entered.  A  sample  was  put 
into  the  sample  port  of  the  pH/Blood  Gas  analyzer  via  syringe.  The  procedure 
followed  the  guidelines  in  the  instruction  manual  (13). 
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Fluorometric  Assays 

Due  to  time  constraints,  the  fluorometric  assays  were  not  conducted  during 
my  tenure  at  LAIR.  These~assays  determine  the  amount  of  adenosine 
triphosphate,  glucose,  and  2,3-diphosphoglycerate  in  the  RBCs.  According  to  the 
protocol  of  the  experiment,  this  procedure  is  done  using  the  Moore  technique 
04). 

Infuse  Patient 

After  14  or  21  days,  we  took  20  mL  of  sample  and  added  20  p.L  of 
radioactive  sodium  chromate.  The  sample  was  then  allowed  to  sit  for  20  min  at 
room  temperature  with  periodic  mixing.  At  the  end  of  20  min,  we  added  two 
doses  of  30  mL  0.9%  saline  solution.  Next,  we  centrifuged  the  sample  for  10  min 
at  1000  x  g.  After  centrifuging  the  sample,  a  spinal  needle  was  inserted  into  the 
bottle  to  draw  off  the  supernatant.  We  weighed  the  sample,  measured  its 
radioactivity  with  a  dosimeter,  put  it  in  a  syringe,  and  injected  it  into  the  original 
donor.  Five  minutes  later  we  withdrew  a  5  mL  sample  of  the  donor's  blood  and 
repeated  this  step  five  times,  once  every  2.5  min.  Twenty-four  hours  later, 
another  5  mL  sample  was  withdrawn  from  the  donor. 

One  milliliter  of  each  sample  was  then  diluted  with  1  mL  of  water.  These 
dilutions  were  made  in  triplicate  for  each  of  the  seven  samples,  and  then  placed  in 
a  gamma  counter  for  a  read-out  on  the  radioactivity  of  each  sample. 

Assays 

After  14  or  21  days,  the  assays  performed  on  day  zero  were  repeated. 
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Results 

On  the  PSO  assay  I  ran  on  fresh  blood,  the  oxygen-carrying  capacity,  25 
mm  Hg.  was  lower  than  that  of  average  fresh  blood,  27  mm  Hg  (15).  This 
confirms  our  average  P50  at  zero  day  of  26.5  mm  Hg.  For  the  P50  assays,  the 
temperature  was  kept  at  37°C  and  the  buffer  at  pH  7.4. 

The  results  from  the  micro- Drabldns  assay  had  a  total  average  of  0.0696  g 
of  hemoglobin  per  dL  of  supernatant  The  average  osmolarity  was  304  mOsm/kg 
supernatant.  The  total  average  hematocrit  on  day  zero,  the  day  of  thawing,  was 
67.9.  On  day  zero  the  total  average  morphology  index  was  100.  After  21  days, 
the  total  average  morphology  index  dropped  to  82.95.  The  total  average  blood  pH 
at  zero  day  was  7.028.  For  the  hemoglobin  assay  at  zero  day,  ihc  total  average 
mu'!  22.9298  Hb/dL. 

After  freezing,  the  level  of  sodium  (Na*)  in  the  supernatant  returned  to 
9"1  4^  of  its  pre  frozen  level  and  potassium  (K  +  i  in  the  supernatant  returned  to 
49  9**  of  its  pre  frozen  level.  After  14  days,  the  Na*  concentranon  decreased 
30  6^.  from  170  9  m.W  Na^/L  supernatant  before  freezing  to  1 18  6  mM  Na*/L 
supernatant  at  14  day  post-thaw  The  K*  level  increased  1331  9*5  from  3  54  mM 
K*  1.  supernatant  before  freezing  to  47  2  mM  K*/L  supernatant  at  14  day  post- 
haw  After  2!  davs.  the  average  concentration  of  Sj*  n  the  supernatant 
lecrtased  27  f  mrr  7  mM  Na*/L  supemaian".  before  freezing  to  124  6 
mM  Sa*T  supernatant  at  2!  dav  post  thaw  After  2i  davs.  the  average 
omrmranor  K*  m  the  supernatant  mcreaaed  ’44WA^  from  '  '  mM  K*^L 
suprnnaiart  hrfore  freenng  to  f  mM  K  41  supernatant  at  2  ’  das  pan  tftaw 
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Discussion 

The  results  of  the  different  assays  indicate  the  efficacy  of  the  additive 
solution  in  preservation  of  the  RBCs.  Some  of  the  assays  are  also  used  to  ensure 
that  the  addidve  solution  meets  the  regulations  set  up  by  the  Food  and  Drug 
Administration  (FDA). 

On  the  single  P50  assay  I  ran  on  fresh  blood,  the  results  were  insignificant. 
But,  if  that  blood  had  been  frozen  later  that  day  and  eventually  thawed,  the  results 
from  the  assay  I  performed  would  have  been  used  to  compare  the  oxygen-carrying 
capacity  of  the  thawed  RBCs  to  their  oxygen -carry: ng  capacity  before  freezing. 

The  P50  data  at  zero  day,  however,  indicated  that  the  freezing  and  thawing 
process  had  no  impact  on  the  oxygen-canying  capacity  of  the  RBCs,  because  the 
results  were  the  same  as  those  for  normal  fresh  blood. 

The  results  of  the  hemoglobin  assay  on  RBCs  would  typically  be  used  as  a 
correction  factor  for  the  ATP  and  2.3-DPG  assays;  however,  because  these  assays 
arc  not  documented  in  this  paper,  the  results  of  the  hemoglobin  assay  have  not 
been  used. 

The  purpose  of  the  micro-Drabkins  assay  is  to  determine  the  amount  of 
i;  ms  that  occurs  in  the  RBCs  If  the  RBCs  are  ruptured,  hemoglobin  is  released. 
To  ensure  that  the  majority  of  the  RBCs  are  in  good  condition,  the  FDA  maintains 
tt.at  the  hemoglobin  present  in  the  supernatant  is  less  than  1  g  %.  The  average 
amouni  of  hemoglobin  per  dL  of  supernatant  in  our  study  was  0.0690  g/dL,  much 
!rss  than  PDA  requirements 

rhe  average  osmolanty  of  VW  mOsnVkg  supernatant  indicates  the  osmotic 
pressure  <.f  3  molai  tone  entrant  of  ar  ion  in  the  solvent  Normal  osmolanty  for 


12-Ward 


fresh  plasma  is  320  mOsm/kg  (Personal  communication,  G.  Moore,  PhD.,  4  Aug. 
92).  Thus,  this  data  indicates  relatively  normal  osmotic  pressure  in  the  plasma 
before  the  freezing  procedure  took  place. 

By  rating  the  RBCs  via  the  morphology  index,  we  are  able  to  determine 
the  condition  of  the  RBCs.  A  high  morphology  index  indicates  that  only  a  small 
percentage  of  the  RBCs  are  crenating.  On  the  day  of  thawing,  the  morphology 
index  was  100;  all  of  the  RBCs  were  in  the  healthy  smooth  disc  form.  Thus, 
although  the  freezing,  thawing,  and  washing  of  the  RBCs  are  traumatic  processes, 
they  had  no  impact  on  the  degradation  of  the  RBCs.  The  total  average 
morphology  index  for  21  days  was  82.95,  indicating  that  post-thaw  storage  does 
allow  for  the  crenation  of  the  RBCs.  However,  the  normal  life  span  for  a  RBC  is 
120  days  (15),  and  thus  over  the  course  of  21  days,  a  certain  percentage  of  the 
RBCs  would  be  crenating  due  to  their  normal  aging  process.  Because  the 
morphology  index  is  still  high  at  21  days,  we  can  infer  that  the  additive  solution  is 
effectively  minimizing  deterioration  of  the  RBC  membranes. 

Normal  blood  has  a  pH  between  7.0  and  7.2.  At  zero  day,  the  normal  pH 
was  maintained  Previous  studies  have  shown  that  when  a  normal  pH  level  is 
maintained,  the  RBCs  retain  more  of  their  oxygen-carrying  capabilities.  Thus,  the 
freezing  and  thawing  processes  did  not  hinder  the  oxygen-carrying  capability  of 
the  RBCs.  This  is  reinforced  by  the  P50  data  at  zero  day,  in  which  the  normal 
oxygen-carrying  capacity  of  the  RBCs  was  maintained. 

The  levels  of  sodium  (Na+)  and  potassium  (K+)  in  the  blood  help  the  body 
regulate  water  retention,  and  are  necessary  to  maintain  life  (16).  Relanvcly  high 
concentrations  of  Na+.  approximately  140  pM/mL,  and  low  concentrations  of  K* , 
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4-5  fiM/mL,  are  found  in  extra  cellular  fluids,  although  inside  the  cells,  Na+  is 
low,  10-20  jxM/mL,  and  K+  is  high,  90-JD0  jiM/mL  (17).  During  the  freezing  of 
RBCs,  K+  leaves  the  cell  and  Na+  enters  it.  After  thawing,  however,  the 
concentrations  of  Na+  and  K+  in  the  RBCs  should  return  to  normal,  unless  the 
cell  membranes  have  been  damaged  (16).  Thus  the  2.6%  difference  between  pre¬ 
frozen  and  thawed  concentrations  of  Na+  in  the  supernatant  and  the  50% 
difference  between  pre-frozen  and  thawed  concentrations  of  K+  in  the  supernatant 
indicate  some  damage  occurred  in  the  RBC  membranes  during  freezing,  thawing, 
and  washing.  After  14  days,  Na  +  concentrations  decreased  another  46.3  m.M 
Na4'/  L  supernatant  (from  concentration  on  day  of  thawing).  Similar  results  were 
obtained  after  21  days;  thus,  at  this  point  a  plateau  was  reached,  and  the  additiv  e 
solution  maintained  the  concentrations  of  Na+  and  K+  in  the  supernatant. 

From  the  clinical  trials,  when  donors  were  infused  with  their  ow  n  blood 
after  14  or  21  days  of  post-thaw  storage,  the  average  in  vivo  survival 
measurements  were  above  the  FDA  required  level  of  75%  for  both  14  and  21 
days.  (Details  will  be  published  at  a  later  date.) 

Throughout  this  study,  RBCs  remained  safe  and  viable.  Lysis  and 
degradation  of  the  RBCs  vvere  kept  at  a  minimum,  and  the  oxygen-carrying 
capacity  of  the  RBCs  maintained.  Thus,  except  for  disrupting  the  concentrations 
of  N'a+  and  K+,  these  assays  determined  that  the  freezing  and  thawing  procedures 
had  minimal  impact  on  the  RBCs. 
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Conclusion 

-The  RBCs  from  this  study  are  still  being  analyzed.  Eventually,  the 
compiled  data  will  be  sent  to  the  FDA  for  approval.  This  research  is,  however, 
discovering  new  methods  and  additive  solutions  that  will  eventually  extend  the 
post-thaw  shelf  life  of  RBCs. 
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Qsmolaritv  before  Freezing 


Patient 

mOsm/kg  supernatant 
before  freezing 

Average  (mOsm /  kg 
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*  Discarded  when  average  calculated. 


Total  Osmolarity  Average 
before  freezing 
(mOsm /  kg  supernatant) 
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%  Oxyhemoglobin  {To  IU1O2) 
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Patient:  196 

Date:  3  Aug.  92 

Temp.:  37.1°C 

pH:  7.4 

P50:  25.0  mm  Hg 
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P50  at  Zero  Dav 

Patient:  268 

Date:  3  Aug.  92 

Temp.:  37.1°C 

pH:  7.4 

P50:  25.0  mm  Hg 
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PSO  at  Zero  lJa* 

Patient:  335 

Date:  3  Aug.  92 

Temp.:  37.1°C 

pH:  7.4 

P50:  26.0  mm  Hg 


Oxyhemoglobin  (%  Hb02> 


:: 

P5f  ■  a:  Zc:l  I 

Fluent 

350 

Date 

3  Aug  1 

Temp 

37. 1CC 

pH 

7.4 

P5>9 

I' ci  0  rr. 

1% 
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P50  at  Zero  Pay 

Patient:  357 

Date:  3  Aug.  92 

Temp.:  37.1°C 

pH:  7.4 

P50:  26.0  mm  Hg 
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24-Ward 


P50on  Fresh  Blood  before  Freezing 

Patient:  500 

Date:  29  July  92 

Temp.:  37.1°C 

pH:  7.4 

P50:  25.0  mm  Hg 


10  20  30  40  50  60  70  80  90  100  110  120  130  140  150 


Oxygen  Partial  Pressure  (mm/Hg) 
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Ward-25 


ABpgndixUI 


Hematocrits  at  Zero  Dav 


—  II  1  1  III  II  — 

Average 

Hematocrit 

m 

7W 

■HHKIElHMHi 

■■■■cIMiSHIH 

268 

68.0 

68.0 

68.0 

335 

66.0 

65.0 

65.5 

352 

66.5 

67.5 

67.0 

357 

68.0 

68.0 

68.0 

Total  Average  Hematocrit 
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Appendix  IY 

Morphology  at  Zero  Dav 


Total  Average  Morphology 
Index  at  Zero  Day 


100 


21  Davs  after  Thawing 


Patient 

I 

Crenated 

Discs 

Crenated 
Discoids  & 
Spheroids 

Crenated  & 
Smooth 
Spheres 

Morphology 

Index 

1— gri*ian 

148 

45 

4l 

18 

L  78.2S  "“f 

209 

112 

39 

16 

3 

86.15 

217 

306 

130 

28 

10 

86.84 

224 

141 

51 

17 

2 

87.42 

248 

146 

44 

15 

9 

86.11 

267 

135 

113 

64 

18 

73.36 

340 

98 

33 

17 

5 

84.08 

341 

124 

66 

22 

2 

84.20 

343 

124 

39 

24 

16 

80.07 

Total  Average  Morphology 
Index 
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AcpcndkY 

Micro-Drabkins  Assay  at  Zero  Dav 


Patient 

Average 

(mg/dL) 

sample  1 

sample  2 

sample  3 

204 

51.6 

■HEffiMi 

MMKIiUMi 

209 

58.3 

60.6 

53.0 

57.3 

217 

67.2 

73.8 

73.3 

71.4 

224 

89.9 

94.6 

92.9 

92.5 

248 

101.0 

100.2 

101.4 

100.9 

249 

50.6 

48.6 

51.1 

50.1 

267 

74.0 

76.0 

74.3 

74.8 

334 

63.5 

66.0 

65.0 

64.8 

340 

79.3 

79.3 

78.5 

79.0 

341 

74.2 

77.6 

73.1 

75.0 

343 

82.9 

77.1 

75.2 

78.4 

344  38.2 

43.0 

38.8 

40.0 

Total  Average  Hemoglobin  m 
Supernatant  (mg/dL) 


69.6 


201 


28-Ward 


KTOSiTircWJ 


Patient 


mM  Na+/L  Supernatant 


Oday 


5 


14  day 


mMK+/LSu 


Oday 


14  day 


199 

178 

154 

140 

3.74 

1 

22 

201 

174 

160 

135 

3.60 

1 

38 

203 

175 

185 

140 

3.68 

1 

52 

212 

171 

152 

135 

3.71 

1 

30 

213 

WMEm 

152 

139 

3.22 

1 

48 

214 

172 

172 

133 

3.47 

1 

47 

219 

172 

166 

136 

3.51 

1 

47 

220 

169 

159 

135 

3.88 

1 

40 

223 

170 

167 

128 

3.81 

1 

54 

231 

170 

158 

135 

3.79 

1 

39 

232 

175 

160 

131 

3.49 

3 

44 

243 

173 

167 

129 

3.45 

2 

53 

244 

163 

164 

121 

3.10 

1 

61 

245 

172 

188 

129 

3.30 

2 

62 

246 

172 

159 

126 

3.46 

3 

49 

247 

170 

167 

124 

3.43 

4 

57 

253 

168 

170 

130 

3.09 

2 

47 

270 

169 

156 

129 

3.71 

2 

44 

332 

173 

175 

117 

3.63 

3 

58 

mM  Na+/L  Supernatant 


0  day  14  day 


mM  K+/L  Su 


Oday 


14  day 


Patient 


mM  Na+/L  Supernatant 


Oday  2fday 


mM  K+/L  Supernatant 


21  day 


209 

173 

175 

123 

3.64 

217 

168 

178 

135 

3.54 

218 

177 

174 

122 

3.77 

224 

165 

165 

124 

4.04 

248 

161 

164 

128 

3.48 

249 

171 

172 

121 

3.23 

267 

166 

180 

124 

3.41 

334 

175 

175 

120 

3.52 

340 

183 

165 

125 

4.30 

341 

174 

163 

123 

4.10 

342 

177 

174 

120 

4.10 

343 

186 

166 

125 

3.67 

344 

172 

165 

129 

3.18 

345 

173 

175 

122 

4.06 

346 

171 

175 

123 

3.58 

347 

173 

164 

125 

3.60 

348 

171 

165 

126 

3.59 

350 

171 

164 

127 

3.65 

351 

172 

165 

126 

334  1 

172.7 


Oday 

21  day 

169.9 

124.6 

Oday 

21  day 

1.95 

53.2 

mM  Na+/L  Supernatant 


mM  K+/L  Supernatant 


HI 


171.8 

167.4 

3.61 

1.80 
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32  Ward 


tl&UTE  1 

A  Smooth  Discs 

B  Crenated  Discs 

t'  Crenated  Discoids  and  Crenated  Spheroids 

D  Crenated  Spheres  and  Smooth  Spheres 

{  l  otal  number  RBCs 


